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Introduction 



AMSTRAD CPC6 1 28 

Sistema integrado de ordenador/disco 

Una evolution logica 

Los dos modelos anteriores de Amstrad, el CPC464 y el CPC664, que tan inmenso exito han 
tenido, han constituido la base a partir de la cual hemos desarrollado este nuevo sistema: el 
CPC6I28. 

Continuando con nuestra norma de compatibilidad, el CPC6I28 puede funcionar con los 
programas escritos para el CPC464 y el CPC664, y ademas dispone de 64K de RAM adicionales 
que pueden ser aprovechados por CP/M y otros programas. 

CP/MPlus 

El sistema operativo CP/M Plus (tambien conocido como CP/M 3.1) proporciona el acceso 
inmediato a la amplia biblioteca de programas disehados para CP/M 80. Gracias a los 6 1 K de 
TPA (area para programas transitorios), cualquier programa de CP/M 80 encuentra espacio mas 
que suficiente para sf mismo y para los datos. CP/M Plus es compatible con CP/M 2.2; no 
obstante, hemos incluido ambas versiones para permitir que las aplicaciones que hayan sido 
desarrolladas utilizando funciones del sistema operativo CP/M 2.2 en Amstrad funcionen sin 
requerir modificacion. 

CP/M Plus esta dotado de numerosas funciones que contribuyen a mejorar las prestaciones del 
sistema; casi todos los programas escritos para CP/M 2.2 pueden aprovechar estas funciones sin 
conflicto. El sistema CP/M Plus incluye un 'emulador de consola' gracias al cual los programas 
que han sido configurados para adaptarse al metodo de control de la pantalla de los terminales 
VT52 y Zenith Z 1 9/Z29 pueden funcionar en el CPC6 1 28 sin necesidad de mas adaptacion. 

GSX 

GSX es un sistema de gestion de graficos, suministrado con esta version de CP/M Plus, que 
permite a los programas controlar, mediante instrucciones estandar, la emision de graficos a 
traves de la pantalla o de impresoras o plotters. Los programas que utilicen GSX podran 
comunicarse con diversos dispositivos graficos para producir copias en papel de diagramas de 
barras, graficas, etc. 

Dr. LOGO 

El LOGO de Digital Research continua abriendo caminos nuevos en la ensehanza de la 
informatica; gracias a la memoria adicional del 6 1 28, ha sido posible ampliar la anterior version 
de Dr. LOGO (para CP/M 2.2) con nuevas instrucciones. Por supuesto, los programas escritos 
para la version antigua son compatibles con la nueva. 

Discos 

El CPC664 establecio un punto de referenda para el futuro con su unidad de disco incorporada 
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en la propia maquina. El CPC6 1 28 sigue ofreciendo las ventajas del sistema de disco a un 
numero cada vez mayor de usuarios que demandan las prestaciones de los ordenadores 
personales a precio de ordenadores domesticos. Los programas que utilizan las funciones mas 
avanzadas de CP/M Plus y GSX no podran funcionar en los modelos anteriores. 

Finalmente, el CPC6 1 28 esta apoyado por uno de los fabricantes de productos electronicos de 
gran consumo mas grandes del Reino Unido. Por otra parte, la revista oficial de Amstrad se ha 
convertido ya en la principal y mas fiable fuente de informacion y noticias para los usuarios de los 
ordenadores Amstrad. 

Programas 

El CPC6 1 28 puede ejecutar todos los programas disponibles en disco para los sistemas CPC664 
y CPC464/DDI I , y casi todos los disponibles en cinta (conectando un magnetofono de cassettes, 
por supuesto). Esto significa que el usuario del CPC6 1 28 puede elegir, sin necesidad de espera 
alguna, entre los muchos programas publicados por Amsoft y otras casas de software. 



AMSOFT 
A division of 



fflU 



CONSUMER ELECTRONICS PLC 
Copyright 1 985 AMSOFT, AMSTRAD Consumer Electronics pic 
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El contenido de este manual y el producto en el descrito no pueden ser adaptados ni 
reproducidos, ni total ni parcialmente, salvo con el permiso escrito de AMSTRAD 
Consumer Electronics pic ('Amstrad'). 

El producto descrito en este manual, asf como los disenados para ser utilizados con el, 
estan sujetos a desarrollo y mejoras continuas. Toda la informacion tecnica relativa al 
producto y su utilizacion (incluida la que figura en este manual) es suministrada por 
AMSTRAD de buena fe. Admitimos, no obstante, que en este manual puede haber errores 
u omisiones. El usuario puede obtener una lista de correcciones y modificaciones 
solicitandola de AMSOFT Technical Enquiries o de sus distribuidores. Rogamos a los 
usuarios que rellenen y envfen a los distribuidores las tarjetas de registro y de garantfa. 



AMSOFT agradecera el envfo de comentarios y sugerencias relativos a este manual y al producto 
en el descrito. 

Toda la correspondencia se debe dirigir a 

AMSOFT 

Aravaca, 22 

28040 Madrid 

Espaha 

Toda reparacion u operacion de mantenimiento de este producto debe ser confiada a los 
distribuidores autorizados de AMSOFT. Ni AMSOFT ni AMSTRAD pueden aceptar ninguna 
responsabilidad derivada del daho o perdida que se pueda ocasionar como resultado de 
reparaciones efectuadas por personal no autorizado. El objetivo de este manual no es sino servir 
de ayuda al usuario en la utilizacion del producto; por consiguiente, AMSTRAD y AMSOFT 
quedan eximidos de responsabilidad por el daho o perdida a que pueda dar lugar la utilizacion de 
la informacion aquf publicada o la incorrecta utilizacion del producto. 

Dr. LOGO, CP/M, CP/M Plus, GSX y DR Graph son marcas registradas de 

Digital Research Inc. 

Z80 es marca registrada de Zilog Inc. 

IBM e IBM PC son marcas registradas de International Business Machines Inc. 

ZI9, Z29 y H89 son marcas registradas de Zenith Data Systems, Inc. 

VT52 es marca registrada de Digital Equipment Corp. 

AMSDOS, CPC6 1 28, CPC664, CPC472 y CPC464 son marcas registradas de 

AMSTRAD Consumer Electronics pic - Edicion 1 986 

Compilado por Ivor Spital 

Escrito por Ivor Spital, Roland Perry, William Poel, Cliff Lawson; 

con la colaboracion de Locomotive Software Ltd 

y con aportaciones de Alexander Martin, David Radisic y Ken Clark 

Traducido del ingles por Emilio Benito Santos 

Publicado por AMSTRAD 

Edicion espahola producida por Vector Ediciones 

AMSTRAD es marca registrada de AMSTRAD Consumer Electronics pic 
Queda estrictamente prohibido utilizar la marca y la palabra AMSTRAD sin la debida 

autorizacion 



Manual de Amstrad CPC 6 1 28 (revision 2008) - Pagina 4 



IMPORTANTE 

Por favor, lea las siguientes... 

Notas de instalacion 

1 . Conecte el cable de alimentacion a una clavija siguiendo para ello las instrucciones que se 
dan en la Parte I del 'Curso de Introduccion'. 

2. No intente conectar este equipo a una red de distribucion de energfa electrica que no 
sea de 220-240 V c.a., 50 Hz. 

3. El mantenimiento que pueda hacer el usuario no requiere en ningun caso acceder al 
interior de la carcasa. Asf pues, no abra nunca el equipo. Confie todas las reparaciones y 
operaciones de mantenimiento a personal cualificado. 

4. Para evitar la fatiga visual, ponga el monitor lo mas alejado posible del teclado y trabaje 
con luz ambiente adecuada. Deje el control de brillo del monitor lo mas bajo posible. 

5. El ordenador deberfa estar centrado con respecto al monitor, lo mas lejos posible de el. 
Para optimizar la fiabilidad del almacenamiento de datos, la unidad de disco no deberfa 
quedar frente al monitor, sino a su derecha. No ponga el ordenador cerca de fuentes de 
interferencia electrica. 

6. Evite que las unidades de disco y los propios discos esten sometidos a la influencia de 
campos magneticos. 

7. Si tiene conectada la segunda unidad de disco, mantenga alejado el cable de datos del 
cable de alimentacion. 

8. No obstruya ni cubra los orificios de ventilacion. 

9. No utilice ni almacene el equipo a temperaturas demasiado altas ni demasiado bajas, ni 
en lugares humedos ni polvorientos. 



Notas de operation 

(No se preocupe si al principio le resulta extrana la terminologfa utilizada en esta seccion; el 
significado de estas advertencias ira quedando mas claro segun avance en la lectura de este 
manual.) 

1 . No encienda ni apague el sistema mientras haya un disco en la unidad, so pena de perder 
la informacion en el grabada. 

2. Haga copias de todos los discos que contengan datos o programas valiosos. En particular, 
copie los discos de CP/M que se suministran con el CPC6 1 28, pues si se deteriorasen 
accidentalmente su sustitucion seria costosa. 

3. Para evitar el riesgo de borrar accidentalmente los discos de CP/M, cerciorese de que los 
orificios de proteccion contra escritura de los discos esten abiertos. 

4. Si esta utilizando un sistema de dos discos, es decir, si ha adquirido una unidad 
AMSTRAD FD I adicional, encienda siempre la segunda unidad antes que el ordenador. 

5. No toque la superficie de los discos. 
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6. No extraiga el disco mientras el ordenador no haya terminado de leer o escribir en el. 

7. Recuerde que al inicializar los discos se borra su contenido anterior. 

8. El interfaz de la unidad de discos ocupa una pequena porcion de la memoria. Algunos 
programas publicados en cassette para el CPC464 aprovechan esa zona de la memoria, y 
por lo tanto no pueden funcionar en el sistema CPC6 1 28+ cassette. En caso de duda 
sobre la compatibilidad de los programas basados en cinta, pongase en contacto con 
AMSOFT o con su distribuidor. Tenga en cuenta, no obstante, que casi todos los 
programas de AMSOFT estan disponibles en disco para su utilizacion en el CPC6 1 28. 

9. El acuerdo de licencia para el sistema operativo CP/M (que esta codificado mediante un 
numero de serie grabado en los discos) permite su utilizacion en un solo ordenador. Esto 
significa, en particular, que al usuario le esta prohibido ceder a otras personas copias de 
su CP/M. Lea atentamente el Acuerdo de licencia para el usuario final' (Apendice I de 
este manual). 



Manual de Amstrad CPC 6 1 28 (revision 2008) - Pagina 6 



Contenido 



Introduction 2 

Una evolution logica .2 

CP/MPlus 2 

GSX 2 

Dr. LOGO 2 

Discos .2 

Programas 3 

IMPORTANTE. 5 

Notas de instalacion 5 

Notas de operation 5 

Contenido 7 

Capitulo 1 - Curso de introduction 20 

Parte 1: Instalacion y mantenimiento 20 

Conexion del ordenador a la red 20 

Conexion del ordenador a un monitor 21 

Conexion del ordenador a la unidad modulador/fuente de alimentacion MP2 22 

Encendido del sistema CPC6128 con GT65 o con CTM644 23 

Encendido del sistema CPC6128 con la unidad modulador/fuente de alimentacion MP2 24 

Anomalias en el funcionamiento del sistema 25 

Limpieza 25 

Parte 2: Conexion de los perifericos 26 

Joysticks (bastoncillos de mando) 26 

Magnetofono de cassettes 26 

Impresora 26 

Segunda unidad de disco (AMSTRAD FDD 27 

Amplificador y altavoces externos 27 

Dispositivos de expansion 28 

Parte 3: En cuanto a los discos 29 

Insertion 29 

Protection contra escritura 29 

Despues de introducido el disco 31 

Parte 4: Manos al teclado 32 

Syntax error (error de sintaxis) 35 

Parte 5: Carga de programas 37 

Carga de programas AMSOFT y del programa WELCOME 38 

Parte 6: Empecemos a trabajar 39 

Introduction a las palabras clave del BASIC de AMSTRAD 39 

CLS 39 

PRINT 39 

RUN 40 

LIST 40 

GOTO 41 

INPUT 41 

Edicion de programas 43 

Metodo del cursor de edicion 43 

Metodo del cursor de copia 44 

Manual de Amstrad CPC 6 1 28 (revision 2008) - Pagina 7 



IF 45 

FOR... NEXT 45 

REM 46 

GOSUB 46 

Aritmetica sencilla 47 

Parte 7: Grabelo en disco 52 

Initialization de discos 52 

Primeros pasos en la utilization de los discos maestros de CP/M 53 

Initialization en un sistema de 2 unidades de disco 56 

Grabacion de unprograma en disco 57 

Catalogo 57 

Carga del disco a la memoria del ordenador 57 

| Av | B 58 

Copia de programas de disco a disco 58 

Ficheros ASCII 58 

Ficheros protegidos 58 

Ficheros binarios 59 

Volcado de pantalla 59 

Parte 8: Introduccion a los modos de pantalla. colores y graficos 60 

Colores 60 

La pantalla 61 

Colores parpadeantes 64 

OBSERVACION MUY IMPORTANTE 65 

Atencion 65 

Graficos 66 

LOCATE 67 

FRAME 68 

PLOT 69 

DRAW 70 

MOVE 70 

Circunferencias 71 

Dibujo de una circunferencia 71 

ORIGIN 73 

FILL 74 

Otros detalles 76 

Parte 9: Sonidos 78 

La instruction SOUND 78 

Situation de los canales 78 

Periodo de tono 78 

Duration 78 

Volumen 79 

Envolvente de volumen 79 

Envolvente de tono 79 

Ruido 79 

Definition de una envolvente de volumen 80 

Definition de una envolvente de tono 81 

Parte 10: Introduccion a los sistemas operativos AMSDOS y CP/M 84 

^Como se utiliza la cinta? 85 

Copia de programas entre discos y cinta 85 

Copia de discos con CP/M 85 

Copia en un sistema de una sola unidad de disco 87 

Protection contra escritura 88 

Copia en un sistema de dos unidades de disco 88 

Verification de discos 89 

Utilization del programa DISCKIT en CP/M 2.2 89 

Information adicional 90 

Parte 11: Introduccion al gestor de bancos de memoria 91 

El segundo bloque de 64K de memoria 91 

Control de imagenes de pantalla con el gestor de bancos 91 

Manual de Amstrad CPC 6 1 28 (revision 2008) - Pagina 8 



Utilization del gestor de bancos 91 

Utilization del gestor de bancos en el almacenamiento de cadenas literales 92 

Information adicional 97 

Capitulo 2 - La genesis de un programa. 98 

^,Por donde empezamos? 98 

Un programa sencillo 98 

^,Oue ocurre si ... ? 101 

Soluciones 101 

Una digresion 105 

Volvemos al programa 105 

El fin delprincipio 105 

Elprincipio del fin 105 

Capitulo 3 - Lista completa de las palabras clave del BASIC de AMSTRAD. 109 

IMPORTANTE 109 

Caracteres especiales 109 

Tipos de datos 109 

Lista de palabras clave Ill 

ABS HI 

AFTER HI 

AND Ill 

ASC 112 

ATN 112 

AUTO 112 

BINS 113 

BORDER 113 

BREAK 114 

CALL 114 

CAT 114 

CHAIN 114 

CHAIN MERGE 115 

CHR$ 115 

CINT 115 

CLEAR 115 

CLEAR INPUT 116 

CLG 116 

CLOSEIN 116 



CLOSEOUT 


117 


CLS 


117 


CONT 


117 


COPYCHRS 


117 


COS 


118 


CREAL 


118 


CURSOR 


118 



DATA 119 

DECS 119 

DEFFN 120 

DEFINT 120 

DEFREAL 120 

DEFSTR 121 

PEG 121 

DELETE 121 

DERR 122 

PI 122 

DIM 123 

DRAW 123 

DRAWR 124 

EDIT 124 

EI 125 

ELSE 125 

Manual de Amstrad CPC 6 1 28 (revision 2008) - Pagina 9 



END 


125 


ENT 


125 


ENV 


127 


EOF 


128 


ERASE 


128 


ERL 


129 


ERR 


129 


ERROR 


129 


EVERY 


130 


EXP 


130 


FILL 


130 


FFX 


131 


FN 


131 


FOR 


131 


FRAME 


132 


FRE 


132 


GOSUB 


132 


GOTO 


133 


GRAPHICS PAPER 


133 


GRAPHICS PEN 


133 


HEX$ 


134 


HIMEM 


134 


IF 


134 


INK 


135 


LNKEY 


135 


LNKEYS 


136 


LNP 


136 


LNPUT 


136 


LNSTR 


137 


LNT 


138 


JOY 


138 


KEY 


138 


KEYDEF 


139 


LEFTS 


139 


LEN 


140 


LET 


140 


LLNE INPUT 


140 


LIST 


141 


LOAD 


141 


LOCATE 


141 


LOG 


142 


LOG10 


142 


LOWERS 


142 


MASK 


143 


MAX 


143 


MEMORY 


143 


MERGE 


144 


MIDS 


144 


MIDS 


144 


MEN 


145 


MOD 


145 


MODE 


145 


MOVE 


146 


MOVER 


146 


NEW 


147 


NEXT 


147 


NOT 


147 


ON BREAK CONT 


148 


ON BREAK GOSUB 


148 


ON BREAK STOP 


148 


ON ERROR GOTO 


149 


ON <expresion> GOSUB 


149 


ON <expresion> GOTO 


150 



Manual de Amstrad CPC 6 1 28 (revision 2008) - Pagina 1 



ONSOGOSUB 


150 


OPENIN 


151 


OPENOUT 


151 


OR 


151 


ORIGIN 


152 


OUT 


152 


PAPER 


152 


PEEK 


153 


PEN 


153 


PI 


153 


PLOT 


154 


PLOTR 


154 


POKE 


155 


POS 


155 


PRINT 


156 


PRINT SPC 


156 


PRINT TAB 


156 


PRINT USING 


157 


RAD 


159 


RANDOMIZE 


159 


READ 


159 


RELEASE 


160 


REM 


160 


REMArN 


160 


RENUM 


161 


RESTORE 


161 


RESUME 


162 


RESUME NEXT 


162 


RETURN 


163 


RIGHTS 


163 


RND 


163 


ROUND 


164 


RUN 


164 


RUN 


164 


SGN 


165 


SIN 


165 


SOUND 


165 


SPACES 


167 


SPC 


167 


SPEED INK 


167 


SPEEDKEY 


167 


SPEED WRITE 


168 


SO 


168 


SOR 


169 


STEP 


169 


STOP 


169 


STR$ 


170 


STRINGS 


170 


SWAP 


170 


SYMBOL 


170 


SYMBOL AFTER 


172 


TAB 


172 


TAG 


172 


TAGOFF 


173 


TAN 


173 


TEST 


174 


TESTR 


174 


THEN 


174 


TIME 


174 


TO 


175 


TROFF 


175 


TRON 


175 


UNT 


175 



Manual de Amstrad CPC 6 1 28 (revision 2008) - Pagina I I 



UPPERS 176 

USING 176 

VAL 176 

VPOS 176 

WAIT 177 

WEND 177 

WHILE 177 

WIDTH 178 

WINDOW 178 

WINDOW SWAP 179 

WRITE 179 

XOR 180 

XPOS 180 

YPOS 180 

ZONE 181 

Nota del revisor (2008): Basic 1.1 frente a Basic 1.0 181 

Capitulo 4 - Discos y cintas. 182 

Parte 1: Discos 182 

Discos de trabajo 182 

Copiade los discos maestros 182 

Introduction a CP/M Plus 183 

El programa PROFILE 183 

El pro grama HELP 184 

^.Cuantas unidades de disco? 184 

Copia de ficheros de un disco aotro 184 

Disco para BASIC (sin CP/M) 185 

Discos Have en mano de BASIC de AMSTRAD 185 

Programas Have en mano de CP/M 185 

Creation de un disco de trabajo para programas Have en mano de CP/M 185 

Configuration de un programa de CP/M 186 

Configuration de la salida de unpaquete 186 

Configuration de la entrada a un paquete 187 

Ejecucion de un paquete Have en mano de CP/M 188 

Arranque automatico de un paquete Have en mano en CP/M 188 

Introduction al GSX 188 

Trabajo con CP/M 2.2 190 

Parte 2: Cintas 191 

CAT 191 

Errores de lectura 192 

CHAIN 192 

CHAIN MERGE 192 

LOAD 192 

MERGE 192 

RUN 192 

EOF 193 

POS(#9) 193 

INPUT #9 193 

LINE INPUT #9 193 

OPENIN 193 

CLOSEIN 193 

LIST #9 194 

OPENOUT 194 



CLOSEOUT 


194 


PRINT #9 


194 


WRITE #9 


194 


Calidad de la grabacion 


195 


SAVE 


195 


SPEED WRITE 


195 


Mensajes de error 


196 



Manual de Amstrad CPC 6 1 28 (revision 2008) - Pagina 1 2 



Ordenes externas de AMSDOS 196 

Capitulo 5 - AMSDOS v CP/M. 197 

Parte 1: AMSDOS 197 

Introduction 197 

Directorio del disco 197 

Cambio de discos 197 

Nombres y tipos de ficheros en AMSDOS 198 

Construction de los nombres de los ficheros 198 

Cabeceras de fichero en AMSDOS 198 

Nombres de fichero con dos unidades de disco 199 

Simbolos comodin 200 

Ejemplos de utilization de ordenes de AMSDOS dentro de un programa 200 

Grabacion de variables y volcado de pantalla 200 

Carga depantallas 201 

Resumen de las ordenes externas de AMSDOS 202 



|A 


202 


|B 


202 


|CPM 


202 


|DIR 


203 


|DISC 


203 


IDISC.IN 


203 


IDISC.OUT 


203 


|DRIVE 


203 


|ERA 


203 


|REN 


204 


|TAPE 


204 


ITAPE.IN 


204 


ITAPE.OUT 


204 


USER 


204 



Copiade ficheros de disco a disco 205 

Copia de ficheros entre disco y cinta 205 

Procedimientos de copia de ficheros 205 

Guia de referencia de los mensajes de error 208 

Lista de errores 208 

Parte 2: CP/M 210 

CP/M Plus 210 

Introduccion 210 

Situation de CP/M Plus en el disco 211 

Arranque en frio 211 

Codigos de control de consola 211 

Nombres de ficheros 212 

Cambio de la unidad de disco implicita 213 

Ordenes directas de consola 213 

DIRSYSyDIRS 213 

ERASE o ERA 213 

RENAME o REN 214 

TYPEoTYP 214 

USER o USE 214 

Ordenes transitorias 214 

Gestion de perifericos 215 

LANGUAGE 215 

Colores 215 

El teclado 216 

Impresoras 217 

Interfaz serie 217 

PIP 218 

Gestion del sistema 220 

SalidadeCP/M 222 

Programacion avanzada 222 

CP/M 2.2 222 

Manual de Amstrad CPC 6 1 28 (revision 2008) - Pagina 1 3 



SETUP 224 

Para terminar 225 

Capitulo 6 - Introduction a LOGO. 227 

tOueesLOGO? .227 

Dr. LOGO 227 

CargadeLOGO 227 

Primeros pasos 228 

Procedimientos en Dr. LOGO 229 

Un procedimiento sencillo 229 

Procedimientos con parametros 229 

Utilizacion de variables para recordar valores 230 

Edition de pro gramas y procedimientos 230 

Sugerencias para el trabajo con Dr. LOGO 231 

Lista de las primitivas de Dr. LOGO 231 

Proceso de palabras y listas 232 

ascii 232 

bf. 232 

bl 232 

char 232 

count 232 

emptyp 233 

first 233 

fput 233 

item 233 

last CO 233 

lcO 234 

list 234 

listpC) 234 

lputC) 234 

memberp (*) 234 

numberp 234 

piece (*) 235 

se 235 

shuffle (*) 235 

ucC^I 235 

where (*) 235 

word 236 

wordp 236 

Operaciones aritmeticas 236 

arctan (*) 236 

cos 236 

int 236 

quotient (*) 236 

random 236 

remainder (*) 237 

rerandom (*) 237 

round (*) 237 

sin 237 

+ 237 

- 238 

* 238 

/ 238 

Operaciones logicas 238 

and 238 

not 238 

or 238 

= 239 

> 239 

< 239 

Variables 239 

local 239 

Manual de Amstrad CPC 6 1 28 (revision 2008) - Pagina 14 



make 239 

namep (*) 239 

thing (*) 240 

Procedimientos 240 

define (*) 240 

end 240 

po 240 

pots 241 

textf*) 241 

to 241 

Edition 241 

ed 241 

edalU*) 241 

edff*) 241 

Funciones de la impresora 242 

copyon (*) 242 

copyoffC*) 242 

Pantalla de texto 242 

ct 242 

cursor (*) 242 

pr 242 

setcursor (*) 242 

setsplit 243 

show 243 

ts 243 

type 243 

Pantalla grafica 243 

clean 243 

cs 243 

dot 244 

dotcC 1 ) 244 

fence 244 

fillf*) 244 

fs 245 

pal 245 

setbg(*) 245 

setpal 245 

setscrunch (*) 245 

sf. 246 

ss 246 

window 246 

wrap 246 

Graficos de tortuga 247 

bk 247 

fd 247 

home(*) 247 

ht 247 

It 247 

pd 247 

pe 247 

pu 248 

px 248 

rt 248 

seth 248 

setpc 248 

setpos 248 

setx(*) 249 

sety(*~) 249 

st 249 

tf. 249 

towards (*) 250 

Gestiondel espacio de trabajo 250 

er 250 

Manual de Amstrad CPC 6 1 28 (revision 2008) - Pagina 1 5 



eralH*) 250 

em 250 

nodes 250 

noformat (*) 250 

poalU*) 251 

pons (*) 251 

pops (*) 251 

recycle 251 

Listas de propiedades 251 

glist 251 

gprop 251 

plist 252 

pprop 252 

pps(*) 252 

remprop 252 

Ficheros en disco 252 

changef (*) 252 

defaultdf*) 252 

dir 253 

dirpicf*) 253 

load 253 

loadpic (*) 253 

save 253 

savepic (*) 253 

setcU*) 254 

Teclado y joystick 254 

buttonp 254 

key p 254 

paddle 254 

re 255 

rl 255 

rq 255 

Sonido 255 

sound 256 

env 256 

ent 256 

release 256 

Control de ejecucion 257 

bve 257 

co 257 

go 257 

if 257 

label 257 

op 257 

repeat 257 

run 257 

stop 258 

wait 258 

Gestionde excepciones/errores 258 

catch 258 

error 258 

notrace (*) 258 

nowatch (*) 258 

pause 258 

throw 259 

tracef*) 259 

watch (*) 259 

Primitivas del sistema 259 

.contents 259 

.deposit 259 

.examine 259 

.in(*) 259 

■out(*1 259 

Manual de Amstrad CPC 6 1 28 (revision 2008) - Pagina 1 6 



Variables del sistema 259 

ERRACT 259 

FALSE 260 

REDEFP 260 

TOPLEVEL 260 

TRUE 260 

Propiedades del sistema 260 

.APV 260 

■DEF 260 

.ENL(*) 260 

.EMTf*) 260 

.PRM 260 

.REM (o bien :) (*) 260 

Capitulo 7 - Para su referenda 261 

Parte 1: Posiciones del cursory codigos ampliados de control en BASIC 261 

Codigos de control en BASIC 263 

Parte 2: El sistema operativo 266 

Parte 3: Interrupciones 267 

Parte 4: Caracteres ASCII y caracteres graficos en BASIC 268 

ASCII 268 

Conjunto de caracteres graficos especificos de la maquina 269 

Parte 5: Esquemas del teclado 282 

Codigos expansibles: posiciones y valores implicitos 283 

Numeros de las teclas y los joysticks 284 

Parte 6: Sonidos 285 

Notas y periodos de tono 285 

Parte 7: Mensajes de error de BASIC 289 

Errores de disco en AMSDOS 291 

Parte 8: Palabras reservadas de BASIC 293 

Parte 9: Plantillas .294 

Pantalla de texto; modo (20 columnas) 294 

Pantalla de texto; modo 1 (40 columnas) 295 

Pantalla de texto; modo 2 (80 columnas) 296 

Envolventes de sonido/musica 297 

Parte 10: Conexiones .298 

Zocalos de entradas y salidas del CPC6128 298 

Zocalo del joystick 298 

Zocalo del monitor 298 

Zocalo estereo 299 

Zocalo de cinta 299 

Zocalo de expansion 300 

Zocalo para la segunda unidad de disco 300 

Zocalo para la impresora 301 

Parte 10: Impresoras 302 

Interfaz 302 

Configuration de la impresora 302 

Parte 12: Joysticks 304 

Parte 13: Organization de los discos 305 

Comun a todos los formatos: 305 

Formato SISTEMA 305 

Formato SOLO DATQS 305 

Formato IBM (solo en CP/M 2.2) 306 

Parte 14: Ampliaciones del sistema residentes (RSX) 307 

Manual de Amstrad CPC 6 1 28 (revision 2008) - Pagina 1 7 



Parte 15: Memoria 308 

Otras entradas y Salidas 309 

Memorias ROM adicionales 309 

Parte 16: Emulador de consola de CP/M Plus 310 

Parte 17: Juego de caracteres de CP / M Plus 314 

Juegos de caracteres de 7 bits 315 

Juegos de caracteres de 8 bits 316 

Capitulo 8 - Mas sobre el gestor de bancos de memoria 317 

Utilization por BASIC del segundo banco de 64KdeRAM 317 

Parte 1: Almacenamiento de imagenes de pantalla 317 

Ejemplos de transferencias de pantallas 319 

Parte 2: Ficheros en RAM 319 

Busquedas 320 

Cuidado con los errores 321 

Capitulo 9 - Cuando usted guste. 323 

Parte 1: En terminos generates 323 

^,Por que es un ordenador meior que otro? 323 

^,Por que no puede? 324 

Ese teclado me suena 325 

^,Quien teme a lajerga? 326 

Lo basico de BASIC 327 

Numeros 327 

Bits y bytes 328 

Sin embargo 330 

Parte 2: Mas en concreto sobre el CPC6128 333 

Caracteres 333 

Vamos a verlos 333 

^Como sabemos que es una variable? 334 

Logica 335 

Caracteres defmidos por el usuario 338 

La imprenta 338 

Formato de escritura 339 

Ventanas 342 

Interrupciones 344 

Listas de datos 345 

El sonido de la musica 348 

Dicho graficamente 358 

Lineas discontinuas 359 

Caracteres transparentes 361 

Modos de tinta 361 

Animation 362 

Sprites 363 

Graficos con el segundo banco de 64K de RAM 364 

Para mas information 371 

Apendice 1 - Digital Research y AMS TRAD 372 

1. Defmiciones 372 

2. Licencia 372 

3. Vigencia del contrato 373 

4. Garantia limitada 373 

5. Limitation de la responsabilidad 373 

6. Tarjeta de registro 373 

7. Condiciones generates 374 

Apendice 2 - Lexico ingles-castellano y glosario 375 

Apendice 3 - Que usted lo disfrute. 401 

Rebotes 401 

Bombardero 403 

Manual de Amstrad CPC 6 1 28 (revision 2008) - Pagina 1 8 



Teletenis 405 

Esgrima electrico 407 

Amthello 411 

Guante bianco 417 

Apendice 4 -Indice 423 

Apendice 5 -Revision 2008. 429 

Apendice 6 - Emuladores de Amstrad CPC. 430 



Manual de Amstrad CPC 6 1 28 (revision 2008) - Pagina 1 9 



Capitulo 1 - Curso de introduction 



Parte 1: Instalacion y mantenimiento 

El CPC6 1 28 puede ser instalado con: 

1 . El monitor de fosforo verde AMSTRAD GT65. 

2. El monitor de color AMSTRAD CTM644. 

3. O la unidad modulador/fuente de alimentacion AMSTRAD MP2 conectada a un televisor 
decolor (en UHF). 



Conexion del ordenador a la red 

El CPC6 1 28 solo se puede conectar a la red de 220-240V c.a., 50 Hz. 

No extraiga ningun tornillo ni trate de abrir la carcasa del ordenador, del monitor ni de la unidad 
MP2. Lea y respete las advertencias que se dan en la etiqueta de caracterfsticas, que esta situada 
en la cara inferior de la carcasa del ordenador y de la fuente de alimentacion: 

Desconectar cuando no se utilice. 

iATENCION! 

No manipular en su interior 

y en la cara posterior de los monitores: 



NO ABRIR SIN ANTES DESCONECTAR 
LA TENSION DE RED 
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Conexion del ordenador a un monitor 

(Si va a utilizar su CPC6 1 28 con la unidad MP2, no es necesario que lea esta seccion.) 

1 . Cerciorese de que el monitor no esta conectado a la red. 

2. Conecte el cable que sale de la cara frontal del monitor y termina en una clavija grande (DIN 
de 6 patillas) al zocalo posterior del ordenador marcado con MONITOR. 

3. Conecte el cable que sale de la cara frontal del monitor y termina en la clavija mas pequena al 
zocalo posterior del ordenador marcado con 5V c.c. 

4. Conecte el cable que sale de la cara posterior del ordenador y termina en una clavija pequena 
( 1 2V c.c.) al zocalo que hay en la cara frontal del monitor. 



CARA FRONTAL DEL MONITOR 



PANEL POSTERIOR 
DEL ORDENADOR 

JUUUUUUUUUUUUUULJ 
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Conexion del ordenador a la unidad modulador/fuente de alimentation MP2 

La MP2 es una unidad opcional que el usuario puede querer adquirir si esta utilizando 
actualmente el CPC6I28 con el monitor de fosforo verde GT65. La MP2 permite conectar el 
CPC6 1 28 a un televisor de color domestico, para asf disfrutar de las posibilidades de color del 
CPC6I28. 

La MP2 se debe colocar inmediatamente a la derecha del CPC6 1 28. 

1 . Cerciorese de que la MP2 no esta conectada a la red. 

2. Conecte el cable de la MP2 que termina en una clavija grande (DIN de 6 patillas) al 
zocalo posterior del ordenador marcado con MONITOR. 

3. Conecte el cable de la MP2 que termina en una clavija pequena al zocalo posterior del 
ordenador marcado con 5V c.c. 

4. Conecte el cable que sale de la MP2 y termina en una clavija de antena a la entrada de 
antena de su televisor. 

5. Conecte el cable que sale de la cara posterior del ordenador y termina en una clavija 
pequena ( 1 2V c.c.) al zocalo posterior de la MP2. 



CARA POSTERIOR DE LA 
CLAVUA UNIDAD MODULADOR/FUENTE 
DE RED DE ALIMENTAClON MP2 

UUUUUUUUUUuUUUUUUu 



CARA POSTERIOR 
DEL ORDENADOR 

JuUUUUUuUuUUUUUL 



A LA ENTRADA DE 
ANTENA DEL TELEVISOR 
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Encendido del sistema CPC6128 con GT65 o con CTM644 

(Si va a utilizar su CPC6 1 28 con la unidad MP2, no es necesario que lea esta seccion.) 

Una vez conectado el sistema segun se ha explicado en secciones anteriores, inserte la clavija de 
red en la toma mural. Para encender el sistema, pulse el boton ALIMENTACION que esta en 
la cara frontal del monitor, de modo que quede en posicion «ENC.». Si este boton esta en 
«APAG.», el suministro de corriente al resto del sistema queda interrumpido. 

Encienda el ordenador mediante el interruptor deslizante marcado con ALIMENTACION, que 
esta en su cara derecha. 

En este momento se debe encender el piloto rojo (ENC) que esta a la derecha del teclado; en el 
monitor se vera el siguiente mensaje: 



Anstrad 1S8K Microcomputer (s3) 

©1385 Am s trad Consumer Electronics pl< 
and Locomotive Software Ltd 

BASIC 1.1 

Ready 



Para evitar la fatiga visual excesiva, ajuste el control de brillo marcado con BRILLO al mfnimo 
necesario para que el texto se vea comodamente, sin que deslumbre ni resulte borroso. 

El control BRILLO se encuentra en la parte inferior de la cara frontal del monitor GT65 y en el 
lateral derecho del CTM644. 

En el caso del GT65, puede ser necesario ajustar los controles de contraste (CONTRASTE) y 
de fijacion del cuadro vertical (SINCRO. VERT.), que estan en el panel frontal. 

El mando de CONTRASTE se debe poner en el mfnimo compatible con la comoda 
visualizacion de los textos. 



Manual de Amstrad CPC 6 1 28 (revision 2008) - Pagina 23 



Encendido del sistema CPC6128 con la unidad modulador/fuente de alimentation MP2 

Una vez conectado el sistema segun se ha explicado en secciones anteriores, inserte la clavija de 
red en la toma mural. Encienda el ordenador mediante el interruptor deslizante que esta en su 
lateral derecho. 

En este momento se debe encender el piloto rojo que esta en el centra del teclado. Ahora debe 
sintonizar el televisor para recibir las sehales del ordenador. 

Si su televisor tiene un selector de canales de botonera, pulse el boton correspondiente a un 
canal no utilizado. Ajuste el mando de sintonia siguiendo las instrucciones del manual del 
televisor (si dispone de un dial de sintonfa, pruebe en las proximidades del canal 36) hasta 
obtener la siguiente imagen: 




Trate de conseguir la maxima nitidez posible. El texto aparecera en color amarillo dorado sobre 
fondo azul. 

Si el televisor tiene un selector de canales rotatorio, gfrelo hasta que pueda ver la imagen y esta 
sea estable (canal 36, aproximadamente). 
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Anomalias en elfuncionamiento del sistema 

Al pulsar el interruptor de alimentacion no se ilumina la pantalla 

• Apague el interruptor pulsandolo por segunda vez. 

• Desconecte el ordenador de la toma mural. 

• Enchufe en ella una lampara que usted sepa que funciona para comprobar que llega 
corriente. 

• Desconecte la impresora. 

• Si tiene instalado un interfaz R.S232, desconectelo. 

• Vuelva a enchufar el ordenador en la toma mural; si hay algun interruptor que controle el 
paso de corriente al enchufe, enciendalo. 

• Finalmente, vuelva a pulsar el interruptor de alimentacion. 
Si el problema persiste, consulte a su distribuidor. 

No se puede introducir el disco en la unidad 

• Compruebe que no hay otro disco en la unidad. Si lo hay, se vera la etiqueta. En tal caso 
pulse el boton de eyeccion para extraerlo. 

• Cerciorese de que no esta intentando introducir el disco al reves (vease la seccion 3. 1 .2). 



Limpieza 

Para la limpieza de la pantalla y el teclado recomendamos el uso de espumas antiestaticas en 
aerosol. En ningun caso se puede utilizar productos limpiadores espirituosos. 



Finalmente, asegurese de que ha tenido en cuenta las advertencias que hemos hecho al principio 
de este manual, en la seccion titulada 'IMPORTANTE': 

NOTAS DE INSTALACION 1 , 2, 4, 5, 6, 7 y 8 (pag. 5) NOTA DE OPERACION I (pag. 5) 
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Parte 2: Conexion de los perifericos 

En esta seccion vamos a explicar como se conectan al sistema CPC6 1 28 diversos perifericos, 
cuyo funcionamiento se explica en las correspondientes secciones de este manual. 

Joysticks (bastoncillos de mando) 

El joystick AMSOFT modelo JY2 es un aparato opcional que el usuario puede desear adquirir si 
va a utilizar su CPC6 1 28 con programas de juegos disenados para aprovechar las posibilidades 
de control y disparo del joystick. 

Conecte el cable procedente del joystick en el zocalo marcado con MANDO A DISTANCIA en 
el ordenador. El CPC6 1 28 admite dos joysticks; el segundo se conecta en el zocalo que hay en la 
peana del primero. 

Con este ordenador se puede utilizar tambien el joystick AMSOFT modelo JYI. En secciones 
posteriores de este manual daremos mas informacion sobre los joysticks. 

Magnetofono de cassettes 

Los programas pueden ser lefdos o grabados en cinta, en lugar de en disco. Mas adelante 
describiremos las ordenes que indican al ordenador cuando debe leer o enviar datos a la cinta o 
al disco. 

Para conectar el magnetofono al ordenador se requiere el cable AMSOFT CLI, o un cable 
estandar equivalente. 

Inserte el extremo del cable que termina en una clavija grande (DIN de 5 patillas) en el zocalo 
del ordenador que esta marcado con CINTA. 

Inserte la clavija en la que termina el cable azul en la hembra del magnetofono que este marcada 
con REMOTE o REM (control remoto, si lo tiene). 

Inserte la clavija en la que termina el cable rojo en la hembra del magnetofono que este marcada 
con MIC, COMPUTER IN o INPUT (entrada). 

Inserte la clavija en la que termina el cable bianco en la hembra del magnetofono que este 
marcada con EAR, COMPUTER OUT u OUTPUT (salida). 

Es importante observar que el exito en la transferencia de datos entre el CPC6 1 28 y la cinta 
depende en gran medida del correcto ajuste del control de nivel o de volumen del magnetofono. 
Si encuentra dificultad en la grabacion o lectura de los programas, pruebe con diferentes 
posiciones del control de volumen y de tono del magnetofono hasta optimizar los resultados, o 
pruebe con la otra cara de la cinta si en ella hay la misma grabacion. 

Impresora 

El CPC6 1 28 puede ser conectado a cualquier impresora de interfaz tipo Centronics. Para 
conectar el ordenador a la impresora AMSTRAD, basta con utilizar el cable suministrado con 
esta. 

Para conectar cualquier otra impresora de tipo Centronics se necesita el cable AMSOFT PL I . 

Inserte el extremo del cable que termina en un conector piano en el zocalo del ordenador 
marcado con IMPRESORA. 

Inserte el otro extremo del cable, que termina en el conector de tipo Centronics, en el zocalo 
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de la impresora. Si la impresora tiene abrazaderas de seguridad, ffjelas en las ranuras que hay en 
los laterales del conector. 

Mas adelante daremos informacion sobre el manejo de la impresora. 

Segunda unidad de disco (AMSTRAD FD1) 

La unidad AMSTRAD FDI se puede incorporar al sistema como segunda unidad de disco. Las 
ventajas de disponer de dos unidades seran particularmente evidentes para el usuario habitual de 
CP/M, pues muchos programas estan disehados para funcionar con los discos de programas en 
una unidad y los ficheros de datos en la otra. 

El sistema operativo CP/M siempre requiere que los programas se carguen desde el disco (no 
permite el acceso a la ROM de BASIC). CP/M permite acceder a ficheros multiples mediante una 
tecnica que hace posible la ejecucion de programas que de otra forma no cabrian en la RAM; 
pero en muchas ocasiones el disco de programas contiene tantos, que practicamente no queda 
espacio para los ficheros de datos. 

Gracias a la versatilidad de los programas de ayuda suministrados con los discos del sistema, 
todas la operaciones de mantenimiento de ficheros (copia, borrado, etc.) se pueden realizar con 
una sola unidad de disco. Sin embargo, la segunda unidad facilita y acelera estos procesos, y 
reduce notablemente el riesgo de accidentes. 

Para conectar la unidad FD I al CPC6 1 28 se requiere el cable AMSOFT DI2. 

Inserte el conector piano mayor en el zocalo del ordenador que esta marcado con UNIDAD DE 
DISCO 2. 

Inserte el otro conector mas pequeho del cable en el zocalo de unidad FD I . 

Ambos conectores tienen marcada la cara superior; el cable piano va hacia abajo. En caso de 
duda consulte a su distribuidor. 

NO OLVIDE que, antes de encender o apagar la segunda unidad de disco, debe extraer los 
discos que pueda haber en ambas unidades y apagar el sistema. Si se modifica alguna conexion 
mientras el sistema esta encendido, lo mas probable es que se pierda o altere el programa 
actualmente residente en la memoria. Tenga la precaucion de grabar el programa antes de 
modificar las conexiones de los perifericos. 

Si tiene conectada una FD I al CPC6 1 28, encienda primero la FD I con el interruptor deslizante 
que esta en el panel posterior; despues encienda el CPC6 1 28 con el interruptor deslizante que 
esta en la cara posterior del ordenador. Deberan iluminarse los dos pilotos, rojo y verde, de la 
FD I ; esto indicara que la segunda unidad de disco esta preparada para su uso. 

Mas adelante explicaremos el funcionamiento de la segunda unidad de disco. 

Ampliflcador y altavoces externos 

El CPC6 1 28 puede ser conectado a un sistema de amplificador y altavoces estereofonicos, unica 
forma de apreciar plenamente las capacidades sonoras del ordenador. 

El cable de entrada al amplificador debe terminar en una clavija estereo de 3.5 mm, que se 
inserta en la hembra marcada con ESTEREO en el ordenador. 

Las conexiones de la clavija deben ser las siguientes: 

Extremo de la clavija: canal izquierdo. Anillo intermedio: canal derecho. Cuerpo de la clavija: 
masa. 
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El CPC6I28 entrega a la salida ESTEREO una serial de nivel constante; asf pues, el volumen, el 
balance y el tono deben ser regulados con los mandos del amplificador externo. 

Tambien se pueden conectar auriculares de alta impedancia, aunque el volumen no podra ser 
regulado por el mando de VOLUMEN del ordenador. Los auriculares de baja impedancia, que 
son los habitualmente utilizados con los equipos de alta fidelidad, no pueden ser conectados 
directamente al ordenador. 

Mas adelante explicaremos como enviar sonidos a cada uno de los tres canales del CPC6 1 28. 

Dispositivos de expansion 

Al ordenador CPC6 1 28 se le pueden conectar diversos dispositivos de expansion (interfaz serie, 
modem, lapiz fotosensible, ROMs, etc.) por medio del zocalo marcado con EXPANSION que 
esta en la cara posterior del ordenador. 

Tambien se puede conectar en ese zocalo el amplificador/sintetizador de voz AMSOFT modelo 
SSA2. 

Las conexiones del zocalo EXPANSION se describen en el capftulo titulado 'Para su referenda'. 

Finalmente, antes de proseguir, asegurese de que ha tenido en cuenta las advertencias que 
nemos hecho al principio de este manual, en la seccion titulada 'IMPORTANTE': 

NOTAS DE INSTALACION 6 y 7 (pag. 4) NOTAS DE OPERACION 4 y 8 (pag. 5) 
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Parte 3: En cuanto a los discos 

El AMSTRAD CPC6 1 28 usa discos compactos de 3 pulgadas. Le sugerimos que no corra riesgos 
indebidos y que, para garantizar la fiabilidad de la transferencia de datos del ordenador a los 
discos, utilice solamente los discos AMSOFT CF2. Puede, no obstante, utilizar tambien los de 
otras marcas de maxima garantfa. 

Insertion 

Se pueden utilizar las dos caras del disco, aunque no simultaneamente. La forma correcta de 
insertar los discos es con la etiqueta hacia fuera (visible) y con la cara que se va a usar hacia 
arriba: 




Protection contra escritura 

En el extremo posterior izquierdo de cada cara del disco se puede ver una flecha que senala un 
pequeno orificio obturado: es el orificio de 'proteccion contra escritura', cuya mision es evitar el 
borrado accidental del contenido del disco: 



Orificio de proteccion 
contra escritura 




Cuando el orificio esta cerrado, el ordenador puede 'escribir' en el disco. En cambio, si el orificio 
esta abierto, el disco esta protegido contra la escritura, impidiendo el borrado accidental de 
programas o datos valiosos. 

Los diversos fabricantes utilizan diferentes mecanismos de apertura y cierre del orificio. En los 
discos AMSOFT CF2 el funcionamiento es como sigue: 
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Para abrir el orificio, haga deslizar el pequeno obturador situado en la esquina izquierda del 
disco: 



Orificio de proteccton 
contra escritura [ABIERTO) 



Obturador 

ABIERTO' 



Proteccidn actrvada 
PROTEGIDO 

U 



r\ 




i 

i 
i 




Obturador 

CERRADO 



-ffT 



r\ 



W 




®> 



Proteccidn desactivada 
NO PROTEGIDO 

■U_ ■ 



Para cerrar el orificio, haga deslizar el obturador en sentido contrario. 



En algunos discos compactos el mecanismo consiste en una pequeha palanca de plastico situada 
en una ranura que tienen en la esquina izquierda: 



Palanca 



Orificio de proteccidn 

contra escritura 

(CERRADO) 




I . it 



Para abrir el orificio en los discos de este tipo, desplace la palanca hacia el centro del disco, 
ayudandose con la punta de un bolfgrafo u objeto similar: 



Desplace la palanca 

hacia el centro 

del disco 



Orificio de protection y^C * 
contra escritura 
(ABIERTO) 





Manual de Amstrad CPC 6 1 28 (revision 2008) - Pagina 30 



Observe que, cualquiera que sea el mecanismo de obturacion, el efecto es siempre el mismo: el 
disco queda protegido cuando el orificio esta abierto. 

IMPORTANTE 

Cerciorese de que los orificios de proteccion de sus discos maestros de CP/M estan abiertos. 



Despues de introducido el disco 

En la cara frontal de la unidad de disco hay un piloto rojo y un boton de eyeccion: 




Boton de 

eyeccidn 



juuinnjuuinniirinrLJUUi 



Piloto 

Cuando esta encendido, indica que el ordenador esta leyendo datos del disco o escribiendo en 
el. 

Si se ha conectado una segunda unidad de disco (unidad B), su piloto estara encendido 
constantemente, y se apagara cuando se encienda el de la unidad principal (unidad A). 

Boton de eyeccion 

Al pulsar este boton se expulsa parcialmente el disco, lo que permite que el usuario lo extraiga. 



Finalmente, antes de proseguir, asegurese de que ha tenido en cuenta las advertencias que 
hemos hecho al principio de este manual, en la seccion titulada 'IMPORTANTE': 

NOTAS DE OPERACION 1 , 3, 4, 5 y 6 (pags. 4 y 5) 
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Parte 4: Manos al teclado. 

Antes de empezar a cargar y grabar programas necesitamos familiarizarnos con algunas teclas 
del ordenador. Si tiene usted alguna experiencia en el manejo de los ordenadores, puede omitir 
la lectura de esta seccion. 

Encienda el ordenador y vera el mensaje inicial en la pantalla. Vamos a explicar las funciones de 
las diversas teclas: 



s 







Li 



Las cuatro teclas que estan marcadas con sendas flechas (y situadas en el extremo inferior 
derecho del teclado) son las 'teclas de movimiento del cursor'. Estas teclas sirven, pues, para 
mover el cursor por la pantalla. 

Pulselas todas ellas y practique hasta familiarizarse con su funcionamiento. 



RETURN 



La tecla [RETURN] sirve para introducir en el ordenador lo que usted ha tecleado. Una vez 
pulsada la tecla [RETURN], el cursor salta automaticamente a la Ifnea siguiente de la pantalla. 
Siempre que escriba una orden directa o una instruccion de programa, pulse [RETURN] al final. 

De ahora en adelante escribiremos [RETURN] para indicar que se debe pulsar esta tecla al 
terminar de teclear ordenes o instrucciones de programa. 




En circunstancias normales (esto es, si no se modifica por programa su funcion), esta tecla tiene 
el mismo efecto que [RETURN] y puede ser utilizada en su lugar. Sin embargo, al igual que las 
restantes teclas de funcion del teclado numerico, [INTRO] puede ser redefinida, segun 
explicaremos mas adelante. 
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<-BORR 









Esta tecla sirve para borrar el caracter (letra, numero o signo) que esta a la izquierda del cursor. 

Teclee abed y observe que el cursor queda inmediatamente a la derecha de la letra d. Para 
borrar la d, pulse la tecla [<— BORR]. Si la mantiene pulsada durante algun tiempo, vera como se 
borran tambien las otras tres letras. 




Hay dos teclas [MAYS], una a cada lado del teclado. Si mantiene pulsada una de ellas al tiempo 
que pulsa una tecla literal (de letras), en la pantalla aparecera la correspondiente letra en 
mayuscula. 

Escriba la letra e, pulse la tecla [MAYS] y, antes de soltarla, vuelva a teclear la e. En la pantalla 
vera lo siguiente: 

eE 

Escriba ahora unos cuantos espacios (manteniendo pulsada durante algun tiempo la barra 
espaciadora). Para probar el efecto de [MAYS] con las teclas numericas, escriba el 2, pulse 
[MAYS] y, sin soltarla, vuelva a escribir el 2. En la pantalla aparecera lo siguiente: 

2" 
Haga pruebas con las diferentes teclas de caracteres para observar su efecto con y sin [MAYS]. 




Su efecto es en cierto modo similar al de [MAYS]. Con solo pulsarla una vez, las letras que se 
escriban a continuacion apareceran en mayusculas en la pantalla, pero, en cambio, las teclas 
numericas y de signos no resultan afectadas. 

Pulse [FIJA MAYS] una sola vez y luego escriba lo siguiente: 

abcdefl23456 

En la pantalla aparecera: 

ABCDEF123456 



Observe que las letras han sido convertidas a mayusculas y que, sin embargo, los numeros no 
han sido convertidos a los signos que estan grabados en la parte superior de las teclas numericas. 
Para obtener estos signos se pulsa la tecla correspondiente en combinacion con [MAYS]. Escriba 
ahora lo siguiente, manteniendo pulsada la tecla [MAYS]: 
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abcdefl23456 

En la pantalla aparecera: 

ABCDEF!"#$%& 

Para volver a caracteres normales (en minusculas), pulse por segunda vez [FIJA MAYS]. 






FIJA 
MAYS 





Si lo que desea es obtener letras mayusculas y los signos marcados en la parte superior de las 
teclas, sin tener que mantener pulsada la tecla [MAYS], puede hacer lo siguiente: mantenga 
pulsada la tecla [CONTROL] y pulse [FIJA MAYS] una sola vez. Para comprobar el efecto de 
esta combinacion, escriba lo siguiente: 

abcdefl23456 

En la pantalla aparecera: 
ABCDEF!"#$%& 



En esta situacion, se pueden escribir numeros utilizando el teclado numerico (teclas fO a f9) que 
esta a la derecha del teclado principal. 

Manteniendo pulsada la tecla [CONTROL] al tiempo que se pulsa [FIJA MAYS] se vuelve al 
modo anterior (es decir, a minusculas o a bloqueo de mayusculas). Si el modo al que ha vuelto es 
a bloqueo de mayusculas, pulse [FIJA MAYS] para retornar al modo normal, esto es, a 
minusculas. 




Esta tecla borra el caracter que esta bajo el cursor. 

Escriba ABCDEFGH. El cursor ha quedado a la derecha de la ultima letra (la H). Pulse cuatro 
veces la tecla <— . El cursor se ha movido cuatro posiciones hacia la izquierda, de modo que esta 
superpuesto a la letra E. 

Observe que la letra E es visible a traves del cursor. Pulse [CLR] y observe como desaparece la 
letra E y como se mueven hacia la izquierda las letras FGH; bajo el cursor queda la F. Pulse 
durante unos instantes [CLR]: primero desaparece la F, y luego la G y la H. 
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Esta tecla se utiliza para abandonar una funcion que el ordenador este realizando. Si se pulsa 
[ESC] una vez, el ordenador interrumpe su tarea momentaneamente, y la reanuda si a 
continuacion se pulsa cualquier otra tecla. 

Si se pulsa [ESC] dos veces seguidas, el ordenador abandona definitivamente la tarea que esta 
realizando y queda a la espera de otras ordenes. 



Importante 

Cuando se han escrito 40 caracteres en una Ifnea, el cursor esta en el extremo derecho de ella; 
el siguiente caracter aparecera automaticamente al principio de la Ifnea siguiente. Esto significa 
que no se debe pulsar [RETURN], a diferencia de lo que se harfa si se estuviera trabajando con 
una maquina de escribir, en la que se ha de teclear el retorno del carro al acercarse al final de 
cada Ifnea. 

El ordenador realiza esta funcion automaticamente; ante un [RETURN] indebido, reaccionara 
con un mensaje de error, generalmente Syntax error, bien en el acto o bien mas tarde, cuando 
se ejecute el programa. 

Syntax error (error de sintaxis) 

Cuando en la pantalla aparece el mensaje Syntax error, el ordenador esta diciendo que no ha 
entendido la orden que se le ha dado. 

Por ejemplo, escriba 

printt [RETURN] 

En la pantalla aparecera el mensaje: 

Syntax error 

Esto ocurre porque el ordenador no entiende la instruccion printt. 

Si el mismo error se comete en una Ifnea de programa, tal como 

10 printt "abc" [RETURN] 

en mensaje Syntax error no aparece hasta que se ejecuta el programa. Escriba: 

run [RETURN] 

(Esta orden pide al ordenador que ejecute el programa que tiene en este momento almacenado 
en la memoria.) En la pantalla aparece: 

Syntax error in 10 
10 flrintt "abc" 

Este mensaje indica en que Ifnea se ha detectado el error y exhibe la Ifnea con el cursor ya 
preparado para que el usuario pueda corregirla. 

Lleve el cursor, con la tecla — >, hasta una letra t de printt. Pulse [CLR] para borrar la t que 
sobra y luego pulse [RETURN] para introducir la Ifnea corregida en el ordenador. 
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Escriba ahora: 

run [RETURN] 

El ordenador ha entendido la instruccion; de hecho, ha escrito en la pantalla: 

abc 

Finalmente, asegurese de que ha tenido en cuenta las advertencias que hemos hecho al principio 
de este manual, en la seccion titulada 'IMPORTANTE': 

NOTAS DE INSTALACION 4 y 5 (pag. 4) NOTA DE OPERACION I (pag. 4) 
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Parte 5: Carga de programas. 

Vamos a hacer una demostracion de lo rapida que es la carga de programas grabados en disco. 
Encienda el equipo, inserte la cuarta cara de los discos maestros de CP/M (cara marcada con 
'Side 4' hacia arriba) y teclee lo siguiente: 

run "rointime.dem" [RETURN] 

Al cabo de unos segundos el programa habra quedado cargado en la memoria del ordenador. 
Responda a la pregunta de si esta utilizando un monitor de fosforo verde ("green monitor"; 
teclee Y para 'sf, o N para 'no') y podra ver una demostracion del juego 'Roland in Time' en la 
pantalla. Quiza se anime a comprarlo. 

Cuando haya terminado de ver la demostracion, puede 'escapar' del programa de la siguiente 
forma: pulse las teclas [CONTROL] y [MAYS] y, antes de soltarlas, pulse [ESC]. Esta accion 
reinicializa por completo la maquina; llevela a cabo siempre que quiera volver a la situacion en 
que se encuentra la maquina cuando acaba de encenderla. (Cuando se reinicializa el ordenador 
de esta forma, no es necesario extraer el disco que pueda haber en la unidad.) 

Si el programa no se ha cargado normalmente, estudie el mensaje que ha aparecido en la 
pantalla para averiguar que ha ocurrido. Por ejemplo, 

Drive A: disc missing 
Retry, Ignore or Cancel? 

significa que no ha insertado el disco, o que no lo ha hecho correctamente, o quiza que lo ha 
puesto en la unidad B. 



ROINTIME.DEM not found 

significa que no ha puesto el disco correcto, o que ha puesto la otra cara, o que no ha tecleado 
correctamente el nombre del programa, ROINTIME.DEM. 

Si aparece el mensaje 

Bad command 

lo mas probable es que haya tecleado mal ROINTIME.DEM, quiza incluyendo un espacio o un 
signo de puntuacion. 

Type mismatch 
significa que ha omitido las comillas ("). 

Syntax error 

indica que ha tecleado incorrectamente la orden run. El mensaje 
Drive A: read fail 
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Retry, Ignore or Cancel? 

indica que el ordenador no ha conseguido leer los datos grabados en el disco. Compruebe que el 
disco que ha insertado es el correcto y pulse R (de Retry, 'volver a intentarlo'). Este es el 
mensaje que aparece siempre que se ha estropeado un disco por dejarlo dentro de la unidad al 
apagar o encender el sistema. 

Cuando hayamos explicado como hacer copia de los discos, copie sistematicamente todos los 
programas valiosos, en particular los discos maestros de CP/M. 

Cargo, de programas AMSOFT y delprograma WELCOME 

Esperamos haberle abierto el apetito, asf que vamos a cargar un juego. Inserte en la unidad un 
disco de juegos y teclee: 

run "disc" [RETURN] 

Al cabo de unos segundos el juego estara cargado y en marcha. Si teclea run"disc" con el disco 
maestro de CP/M (cara 4) instalado en la unidad, podra ver y oir el programa de demostracion 
'Welcome'. 

Cuando haya terminado de ver Welcome', reinicialice el ordenador mediante las teclas 
[CONTROL] [MAYS] [ESC]. 



La orden descrita (run"disc") sirve para cargar casi todos los programas de AMSOFT grabados en 
disco, aunque en ocasiones habra que teclear algo distinto. En todo caso, las instrucciones de 
carga estan impresas en la etiqueta del disco; sigalas siempre escrupulosamente. 

Para terminar, asegurese de que ha tenido en cuenta las advertencias que hemos hecho al 
principio de este manual, en la seccion titulada 'IMPORTANTE': 

NOTA DE INSTALACION 6 (pag. 4) 

NOTAS DE OPERACION 1 , 5 y 6 (pags. 4 y 5) 
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Parte 6: Empecemos a trabajar 

A estas alturas ya sabemos que podemos y que no podemos hacer con el ordenador, asf como la 
forma de conectarle perifericos. Sabemos para que sirven algunas teclas del ordenador y como 
cargar programas. Ahora vamos a ver algunas de las ordenes e instrucciones que usted puede 
teclear para que empiecen a ocurrir cosas. 

Al ordenador le ocurre lo que a los humanos: solo puede entender instrucciones que se le dan 
en el lenguaje que el conoce. En el caso del ordenador, ese lenguaje es BASIC (siglas de 
Beginners' All-purpose Symbolic Instruction Code, 'codigo de instrucciones simbolicas de uso 
general para principiantes'). Las palabras del vocabulario de BASIC son la llamadas 'palabras 
clave', 'palabras reservadas' o 'palabras de instruccion'. Cada una de ellas ordena a la maquina 
que realice una determinada funcion. Todos los lenguajes tienen sus reglas gramaticales, y BASIC 
no es la excepcion. Aquf, el concepto de gramatica se reduce al de 'sintaxis'; de ahf que el 
ordenador tenga la amabilidad de decirnos de vez en cuando que hemos cometido un error de 
sintaxis: Syntax error. 

Introduction a las palabras clave del BASIC deAMSTRAD 

En el tercer capftulo, titulado 'Lista completa de las palabras clave del BASIC del ASMTRAD', 
daremos una descripcion de todas las palabras del dialecto de BASIC que entiende este 
ordenador. En esta seccion vamos a presentar solo las que se utilizan con mayor frecuencia. 

CLS 

Para borrar la pantalla escriba: 

els [RETURN] 

Como puede observar, la pantalla efectivamente se borra y en su extremo superior izquierdo 
aparecen la palabra Ready y el cursor | . 

Para introducir palabras clave de Basic valen tanto las letras mayusculas como las minusculas. 



PRINT 

Esta instruccion sirve para hacer que el ordenador escriba en la pantalla caracteres sueltos, 
palabras completas, frases o numeros. Teclee la siguiente orden: 

print "hoi a" [RETURN] 

En la pantalla puede ver: 

hola 

Las comillas "" indican al ordenador que es lo que debe escribir. La palabra hola aparecio en la 
pantalla en cuanto se pulso [RETURN]. Teclee 

els [RETURN] 
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para borrar la pantalla. 



RUN 

En el ejemplo anterior hemos visto como obedece el ordenador una orden directa. Pero esto no 
siempre es deseable, ya que el ordenador olvida la orden inmediatamente despues de ejecutarla. 
Podemos almacenar en la memoria del ordenador una sucesion de instrucciones para que mas 
tarde sean ejecutadas en un orden determinado. Tal sucesion de instrucciones constituira un 
programa. Las instrucciones de BASIC que podemos incluir en un programa tienen la forma que 
hemos visto, pero van precedidas de un numero de tinea. Si el programa consta de mas de una 
instruccion, los numeros de Ifnea indican al ordenador en que orden debe ejecutarlas. Cuando 
despues de teclear una Ifnea de instruccion se pulsa [RETURN], la Ifnea queda almacenada en la 
memoria hasta que pidamos al ordenador que ejecute el programa. Escriba lo siguiente: 

10 print "hoi a" [RETURN] 

Observe que en este caso, aunque ha pulsado [RETURN], la palabra hola no ha aparecido en la 
pantalla, sino que ha quedado almacenada en la memoria del ordenador, incluida en la Ifnea de 
programa. Para ejecutar este pequeho programa debemos dar al ordenador la orden directa 
run. Escriba 

run [RETURN] 
Ahora sf aparece la palabra hola en la pantalla. 

Observe algo interesante: en lugar de escribir la palabra print completa, basta con teclear el 
signo de interrogation ?; por ejemplo, 

10 ? "hola" [RETURN] 



LIST 

Cuando se tiene un programa almacenado en la memoria, se puede comprobar su contenido 
haciendo un 'listado'. Escriba 

list [RETURN] 

En la pantalla aparece 

10 PRINT "hola" 

que es la unica Ifnea de nuestro programa. 

Observe que ahora la palabra PRINT esta en mayusculas. Esto nos indica que el ordenador ha 
reconocido PRINT como palabra clave de BASIC. 

Escriba cls[RETURN] para borrar la pantalla. Observe que, aunque se ha borrado el texto que 
habfa en la pantalla, el programa sigue estando en la memoria del ordenador. 
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GOTO 

Esta instruccion pide al ordenador que salte de la Ifnea actual a la Ifnea especificada, para no 
ejecutar un grupo de instrucciones, si el salto es hacia delante, o para formar un bucle, si el salto 
es hacia atras. Escriba 

10 print "hoi a" [RETURN] 
20 goto 10 [RETURN] 

y luego 

run [RETURN] 

Como puede ver, el ordenador escribe repetidamente la palabra hola, a la izquierda de la 
pantalla, saltando cada vez a la Ifnea siguiente. La razon es que, al llegar a la linea 20, la 
instruccion goto 1 reenvfa el programa a la Ifnea 1 0. 

Para detener el programa, pulse [ESC] una vez. Para reanudarlo, pulse cualquier otra tecla. Para 
detenerlo definitivamente, de forma que se pueda introducir otras instrucciones, pulse [ESC] 
dos veces. 

Escriba ahora 

els [RETURN] 

para borrar la pantalla. 

Para inhibir el salto a la Ifnea siguiente de la pantalla cada vez que el ordenador escriba hola, 
introduzca nuevamente el programa anterior, pero poniendo ahora un signo de punto y coma 
(;) al final de las comillas: 

10 print "hola"; [RETURN] 
20 goto 10 [RETURN] 
run [RETURN] 

El punto y coma indica al ordenador que debe escribir el siguiente grupo de caracteres 
inmediatamente a la derecha del anterior (suponiendo que quepan en la misma Ifnea). 

Para detener este programa pulse [ESC] dos veces. Escriba otra vez la Ifnea 10, pero poniendo 
una coma (,) en lugar del punto y coma (;): 

10 print "hola", [RETURN] 
run [RETURN] 

Como puede observar, la coma ha indicado al ordenador que escriba el siguiente grupo de 
caracteres 1 3 posiciones a la derecha del lugar en que empezo a escribir el anterior. Esta funcion 
es util cuando se quiere visualizar informacion en columnas. No obstante, si el numero de 
caracteres del grupo es mayor que 1 2, la escritura empezara otras 1 3 posiciones mas a la 
derecha, de forma que entre columnas siempre quedara algun espacio. 

Este numero, 1 3, es modificable con la instruccion ZONE, que describiremos mas adelante. 

Para detener este programa, pulse [ESC] dos veces. Para borrar completamente la memoria del 
ordenador, pulse las teclas [CONTROL] y [MAYS] y, antes de soltarlas, pulse [ESC]. 

INPUT 

Esta instruccion hace que el ordenador quede a la espera de que el usuario introduzca 
informacion por el teclado; por ejemplo, en respuesta a alguna pregunta. 
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Escriba lo siguiente: 

10 input "cuantos anos tienes";edad [RETURN] 

20 print "piles no aparentas tener";edad; "anos." [RETURN] 

run [RETURN] 

En la pantalla aparece la pregunta: 

cuantos anos tienes? 

Escriba su edad y pulse [RETURN]. Si, por ejemplo, su edad es 18 anos, el programa escribe lo 
siguiente: 

pues no aparentas tener 18 anos. 

Este ejemplo ilustra la utilizacion de input combinada con una variable numerica. Hemos puesto 
la palabra edad al final de la Ifnea 10, y por consiguiente en la memoria, para que el ordenador 
pueda asociarla al numero que el usuario introduzca; despues, en la Ifnea 20, en lugar de edad 
escribira ese numero. Nada nos obligaba a elegir precisamente ese nombre, edad, y podfamos 
haber utilizado una letra cualquiera, por ejemplo, b. 

Reinicialice el ordenador para borrar la memoria (teclas [CONTROL] [MAYS] [ESC]). Si 
queremos captar por el teclado una respuesta que este formada por caracteres cualesquiera 
(letras solas o letras mezcladas con numeros), debemos poner el signo de dolar ($) al final del 
nombre de la variable. Las variables de este tipo son las que denominamos variables literales. 

Escriba el siguiente programa (observe que en la Ifnea 20 hay que poner un espacio despues de 
la primera coma, pero no antes de la segunda): 

10 input "como te 1 lamas" ;nombre$ [RETURN] 

20 print "hoi a, ";nombre;", yo me llamo Rolando" [RETURN] 

run [RETURN] 

En la pantalla puede ver: 

como te llamas? 

Escriba su nombre y luego pulse [RETURN]. Si el nombre introducido es, por ejemplo, Manolo, 
el programa escribe: 

hoi a, Manolo, yo me llamo Rolando 

En este caso hemos usado nombre$ como nombre de la variable literal, pero perfectamente 
podrfamos haber elegido una letra cualquiera, por ejemplo, a$. Vamos a combinar los dos 
ejemplos anteriores en un solo programa. 



Reinicialice la maquinacon [CONTROL] [MAYS] [ESC]. Escriba lo siguiente: 

5 els [RETURN] 

10 input "como te llamas";a$ [RETURN] 

20 input "cuantos anos tienes";b [RETURN] 

30 print "desde luego, ";a$;", no aparentas tener";b;ahos" [RETURN] 

run [RETURN] 

En este programa hemos utilizado dos variables: a$ para representar el nombre y b para 
representar la edad. En la pantalla aparece la primera pregunta: 
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como te llamas? 

Escriba su nombre (supongamos que es Manolo) y luego pulse [RETURN]. El ordenador le 
pregunta ahora: 

cuantos anos tienes? 

Escriba su edad (supongamos que es 18 anos) y luego pulse [RETURN]. 

Si lo que hemos supuesto es cierto, en la pantalla aparecera la siguiente frase: 

desde luego, Manolo, no aparentas tener 18 anos 



Edition deprogramas 

Si alguna de las Ifneas del programa anterior hubiera sido mecanografiada incorrectamente, lo 
que podria provocar el mensaje de error Syntax error o algun otro, en lugar de escribirla de 
nuevo es posible corregirla ('editarla' es como se dice en informatica). Para ilustrar como 
hacerlo, vamos a escribir incorrectamente el programa: 

5 clss [RETURN] 

10 input "como t llamas";a$ [RETURN] 

20 input "cuantos anos tienes";b [RETURN] 

30 print "desde luego, ";a$;", no aparentas tener";b;"afios" [RETURN] 

En este programa hay tres errores: 

• En la Ifnea 5 hemos escrito clss en lugar de els. 

• En la Ifnea 1 hemos escrito t en lugar de te. 

• En la Ifnea 30 hemos olvidado poner un espacio entre la coma y el signo de cerrar 
comillas. 

Hay tres metodos para corregir un programa. El primero consiste en escribir nuevamente la 
Ifnea erronea. Al hacerlo, la Ifnea nueva sustituye a la que habfa en la memoria con el mismo 
numero. 

El segundo es el 'metodo del cursor de edicion'. El tercero es el 'metodo del cursor de copia'. 

Metodo del cursor de edicion 

Vamos a corregir el error de la Ifnea 5. Escriba lo siguiente: 

edit 5 [RETURN] 

En la pantalla aparece la Ifnea 5, por debajo de la 30, con el cursor situado sobre la c de clss. 

Para suprimir la s que sobra, pulse la tecla de movimiento del cursor — > hasta que este quede 
sobre la ultima s de clss; pulse la tecla [CLR] y observe como desaparece la s. 

A continuacion pulse [RETURN] para introducir la version corregida de la Ifnea 5 en la memoria. 
Escriba 

list [RETURN] 

y comprobara que la Ifnea ha quedado corregida. 

La orden AUTO, que describiremos mas adelante en este manual, se puede combinar con este 
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metodo para corregir un grupo de lineas sucesivas. 

Metodo del cursor de copia 

El cursor de copia es un segundo cursor, distinto del que puede ver en este momento en la 
pantalla, que aparece cuando se pulsa [MAYS] en combinacion con alguna de las teclas de 
movimiento del cursor. De esta forma, el cursor de copia se separa del cursor ordinario y puede 
ser llevado a cualquier lugar de la pantalla. 

Para corregir los errores de las Ifneas 1 y 30, pulse la tecla [MAYS] y, sin soltarla, pulse T hasta 
llevar el cursor de copia al principio de la Ifnea 10. Observe que el cursor principal no se ha 
movido, por lo que hay dos cursores en la pantalla. Ahora pulse varias veces [COPIA] hasta que 
el cursor de copia este sobre el espacio que hay entre la t y la palabra llamas. Observe que el 
principio de la linea 10 ha sido copiado en la ultima Ifnea de la pantalla y que el cursor principal 
se ha detenido en la misma columna que el de copia. Escriba la letra e, que aparecera solamente 
en la linea inferior. 



Anstrad 128K Microcomputer 



and Locomotive Software Lid. 

BASIC 1.1 

Ready 

5 clss 

10 input "cono t|l lamas" ;a$ 

SO input "cuantos aos tienes" ;h 

30 print "desde luego,";alj", no aparent 

as lener";bi"aos" 

10 input "cono te| 



El cursor ordinario se ha movido, pero el de copia se ha quedado donde estaba. Pulse ahora 
[COPIA] hasta completar la copia de la linea 1 0. Pulse [RETURN] para transferir esta version de 
la Ifnea 10 a la memoria. El cursor de copia desaparece y el cursor ordinario queda por debajo 
de la nueva linea 1 0. 



Para corregir el otro error, mantenga pulsada la tecla [MAYS] y Neve el cursor de copia con la 
tecla T hasta el principio de la linea 30. Pulse [COPIA] hasta que el cursor de copia quede sobre 
las comillas que siguen a la coma. Pulse la barra espaciadora una vez, con lo que se inserta un 
espacio en la linea nueva. Pulse [COPIA] y no la suelte hasta que haya terminado de copiar el 
resto de la linea 30; pulse entonces [RETURN]. 

Compruebe que el programa ha quedado correctamente almacenado en la memoria 
escribiendo: 

list [RETURN] 

Nota. Para llevar el cursor (durante el proceso de edicion) al principio o al final de una linea, 
pulse la tecla <— o la — » una vez manteniendo pulsada al mismo tiempo la tecla [CONTROL]. 

Reinicialice el ordenador con [CONTROL] [MAYS] [ESC]. 
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IF 

Las palabras clave IF (si) y THEN (entonces) se combinan para hacer que el ordenador realice 
una determinada accion en funcion del resultado de una comprobacion especificada. Por 
ejemplo, en la instruccion 

if 1+1=2 then print "correcto" [RETURN] 

el ordenador comprueba si es cierto que I + I —2 y obra en consecuencia. 

La palabra clave ELSE (si no) da un segundo curso de accion para el caso de que la 
comprobacion de como resultado 'falso' (o sea, que la condicion no se cumpla). Por ejemplo, 

if 1+1=0 then print "correcto" else print "falso" [RETURN] 

Vamos a ampliar nuestro programa anterior con la instruccion IF THEN. Escriba lo siguiente: 

5 els [RETURN] 

10 input "como te llamas";a$ [RETURN] 

20 input "cuantos ahos tienes";edad [RETURN] 

30 if edad < 13 then 60 [RETURN] 

40 if edad < 20 then 70 [RETURN] 

50 if edad > 19 then 80 [RETURN] 

60 print "Bueno, ";a$;", todavia no eres un adolescente a los";edad;"ahos" :end 

[RETURN] 
70 print "Bueno, ";a$;", a tus";edad;"ahos eres un adolescente" :end [RETURN] 
80 print "Que le vamos a hacer, ";a$;", ya no eres un adolescente a 

tus";edad;"ahos" [RETURN] 

(Observe que hemos introducido dos sfmbolos nuevos: <, que significa 'menor que' y esta junto 
a la tecla de la M, y >, que significa 'mayor que' y esta junto a la tecla de <.) Para comprobar 
que el programa ha quedado correctamente introducido en la memoria escriba 

list [RETURN] 

y a continuacion 

run [RETURN] 

Responda a las preguntas que le haga el ordenador y vea que ocurre. 

En este ejemplo puede observar el efecto de la instruccion IF THEN. Tambien hemos 
introducido una palabra clave nueva: END (fin); su efecto es concluir la ejecucion del programa. 
Si no estuviera END en la Ifnea 60, el programa continuarfa en la Ifnea 70. Por lo mismo, si no 
hubieramos puesto END en la Ifnea 70, el programa no terminarfa en ella, sino que ejecutarfa 
tambien la 80. El signo de dos puntos (:) que precede a la palabra END separa esta palabra de la 
instruccion anterior. Este signo se puede utilizar para separar instrucciones cuando interese 
poner varias en una misma Ifnea de programa. Tambien hemos incluido la Ifnea 5, en la que 
borramos la pantalla. En lo sucesivo seguiremos haciendolo, para obtener programas mas 
'elegantes' y evitar confusiones. 

Reinicialice la maquina pulsando las teclas [CONTROL] [MAYS] [ESC]. 

FOR... NEXT 

Estas palabras clave se utilizan cuando se desea que una parte del programa se repita cierto 
numero de veces. Las instrucciones que deban repetirse son las que se incluyen dentro del bucle 
FOR ... NEXT (para ... siguiente). 
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Escriba lo siguiente: 

5 els [RETURN] 

10 for a=l to 10 [RETURN] 

20 print "operacion numero:";a [RETURN] 

30 next a [RETURN] 

run [RETURN] 

Como puede ver, la accion de la Ifnea 20 ha sido realizada 10 veces, tal como exige la instruccion 
FOR de la Ifnea 1 0. Observe tambien como se ha ido incrementando de I en I la variable a. 

La palabra clave STEP (paso) se puede incluir en la instruccion FOR ... NEXT para especificar la 
forma en que debe incrementarse o decrementarse la variable de control del bucle. Por 
ejemplo, modifique la Ifnea 10 y ejecute el programa: 

10 for a=10 to 50 step 5 [RETURN] 

El paso tambien puede ser negative Por ejemplo: 

10 for a=100 to step -10 [RETURN] 
run [RETURN] 



REM 

REM es abreviatura de REMark (observacion, comentario). Esta instruccion indica al ordenador 
que debe ignorar todo lo que haya despues de ella en la Ifnea de programa. Sirve, pues, para 
hacer anotaciones al programa; por ejemplo, el tftulo, el significado de una variable, etc.: 

10 REM Fulminar los invasores [RETURN] 

20 S=5:REM numero de supervi vientes [RETURN] 

El signo de comilla ' (que se obtiene de la tecla del 7 con [SHIFT]) es a su vez abreviatura de 
:REM. Por ejemplo, 

10 'Fulminar los invasores [RETURN] 

20 S=5 'numero de supervi vientes [RETURN] 



GOSUB 

Si en un programa hay un grupo de instrucciones que deban ser ejecutadas varias veces, no es 
necesario escribirlas reiteradamente cada vez que el programa las necesite. Lo que se hace es 
ponerlas en una 'subrutina', la cual puede ser invocada siempre que se desee mediante la 
instruccion GOSUB (ir a subrutina) seguida del numero de la Ifnea donde empieza la subrutina. 
El final de la subrutina se sehala con la instruccion RETURN (retorno). Cuando el programa llega 
a RETURN, la ejecucion salta a la instruccion siguiente al GOSUB que invoco la subrutina. 

(Los dos programas siguientes no hacen mas que escribir la letra de una cancion popular en la 
pantalla, y por lo tanto no es necesario que se tome la molestia de introducirlos en el ordenador. 
Los hemos incluido aqui solamente para demostrar como se pueden utilizar las subrutinas para 
realizar tareas repetidas.) 

En el siguiente programa: 

10 MODE 2 [RETURN] 

20 PRINT "Dicen que no la quieres y la regal as" [RETURN] 
30 PRINT "Peritas de Don Guindo y uvas tempranas" [RETURN] 
40 PRINT "Al tribulete" [RETURN] 
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50 PRINT "Que no qui ere bailar con usted" [RETURN 

60 PRINT "Dejala, dejala sola" [RETURN] 

70 PRINT [RETURN] 

80 PRINT "Es tu cara lo mismo que luna blanca" [RETURN] 

90 PRINT "Y tus ojos luceros que la acompafian" [RETURN] 

100 PRINT "Al tribulete" [RETURN] 

110 PRINT "Que no qui ere bailar con usted" [RETURN] 

120 PRINT "Dejala, dejala sola" [RETURN] 

130 PRINT [RETURN] 

140 PRINT "Tengo yo comparado, nifia, tu rostro" [RETURN] 

150 PRINT "Con la luna de enero y el sol de agosto" [RETURN] 

180 PRINT "Al tribulete" [ENTER] 

190 PRINT "Que no qui ere bailar con usted" [RETURN] 

200 PRINT "Dejala, dejala sola" [RETURN] 

210 PRINT [RETURN] 

run [RETURN] 

puede observar que hemos repetido varias instrucciones. Por ejemplo, la Ifnea 40 (principio del 
estribillo) esta repetida en la 100 y en la 180. Pongamos todo el estribillo en una subrutina, con 
RETURN al final; entonces podremos 'llamarlo' con la instruccion GOSUB 180 cada vez que lo 
necesitemos. El programa queda de la siguiente forma: 

10 MODE 2 [RETURN] 

20 PRINT "Dicen que no la quieres y la regal as" [RETURN] 

30 PRINT "Peritas de Don Guindo y uvas tempranas" [RETURN] 

40 GOSUB 180 [RETURN] 

80 PRINT "Es tu cara lo mismo que luna blanca" [RETURN] 

90 PRINT "Y tus ojos luceros que la acompafian" [RETURN] 

100 GOSUB 180 [RETURN] 

140 PRINT "Tengo yo comparado, nifia, tu rostro" [RETURN] 

150 PRINT "Con la luna de enero y el sol de agosto" [RETURN] 

170 END [RETURN] 

180 PRINT "Al tribulete" [RETURN] 

190 PRINT "Que no qui ere bailar con usted" [RETURN] 

200 PRINT "Dejala, dejala sola" [RETURN] 

210 PRINT [RETURN] 

220 RETURN [RETURN] 

run [RETURN] 

El ahorro de trabajo es evidente. El correcto diseno de subrutinas es una faceta esencial de la 
informatica. Con ellas se puede escribir programas 'estructurados': son la base para la 
adquisicion de buenos habitos de programacion. 

Cuando escriba subrutinas, tenga en cuenta que no esta obligado a saltar siempre a su primera 
Ifnea. Por ejemplo, si hay una rutina en las Ifneas 500 a 800, podrfa interesar llamarla con 
GOSUB 500, con GOSUB 640 o con GOSUB 790, segun las funciones de la subrutina que se 
desee ejecutar. 

Observe que en el programa anterior hemos incluido la instruccion END en la Ifnea 170 para 
aislar la subrutina del resto del programa. De no haberlo hecho, el programa pasarfa de la Ifnea 
160 a la 180. 

Aritmetica sencilla 

El ordenador se puede utilizar como calculadora. 
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Para aprender Como hacerlo, pruebe los siguientes ejemplos. En esta seccion utilizamos el signo 
de interrogacion ? como abreviatura de print. El ordenador escribe la respuesta en cuanto se 
pulsa [RETURN]. 



Suma 

Escriba: 

?3+3 [RETURN] 
6 

(No se teclea el signo =). 
Escriba: 

?8+4 [RETURN] 
12 

Resta 

(no confundir el signo menos ' -' con el de subrayado '_'). Escriba: 
?4-3 [RETURN] 



Escriba: 



?8-4 [RETURN] 
4 



Multiplication 

(el signo de multiplicacion es el asterisco *). Escriba: 

73*3 [RETURN] 
9 

Escriba: 

?8*4 [RETURN] 
32 

Division 

(el signo de dividir es la barra inclinada hacia la derecha, /). Escriba: 

?3/3 [RETURN] 



Escriba: 



?8/4 [RETURN] 
2 



Division entera 

(es la division en la que se ignora el resto; su signo es la barra inclinada hacia la izquierda \). 
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Escriba: 

?10\6 [RETURN] 
1 

Escriba: 

?20\3 [RETURN] 
6 

Modulo 

(la funcion MOD da el resto de la division entera). Escriba: 

?10 MOD 4 [RETURN] 
2 

Escriba: 

79 MOD 3 [RETURN] 


Raiz cuadrada 

Para hallar la rafz cuadrada de un numero se utiliza la funcion SQR ( ). El numero del que se va a 
extraer la rafz (esto es, el radicando) se pone entre los parentesis. 

Escriba: 

?SQR (16) [RETURN] 
4 



(esto significa VI 6 ). 

Escriba: 

?SQR (100) [RETURN] 
10 

Potenciacion 

(en los ordenadores el signo de 'elevar a una potencia' es la flecha hacia arriba T, que en el 
AMSTRAD se obtiene de la tecla de Pt sin [MAYS], y que en impresora tipicamente aparecera 
como un acento circunflejo ~ ). 

La potenciacion es la operacion de elevar un numero a una potencia; es decir, multiplicarlo por 
sf mismo tantas veces como indica el exponente. Por ejemplo, 3 al cuadrado (3 2 ), 3 al cubo (3 3 ), 
3 a la cuarta (3 4 ), etc. 



Escriba: 

73^3 [RETURN] 
27 

(esto significa 3 3 ). Escriba: 
78^4 [RETURN] 
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(esto significa 8 4 ). 



Raiz cubica 

Extraer la rafz cubica de un numero es lo mismo que elevarlo a la potencia 1/3. Asf, para hallar la 
rafz cubica de 27 (v27 ) escriba: 

727^(1/3) [RETURN] 
3 

Para hallar la rafz cubica de 1 25 escriba: 

7125^(1/3) [RETURN] 
5 

Operaciones combinadas (+, *, /) 

El ordenador entiende correctamente las operaciones combinadas, pero es necesario saber con 
que orden de prioridad las realiza. 

La primera prioridad es para la multiplicacion y la division; la segunda, para la suma y la resta. 
Este orden de prioridad es valido solamente para los calculos en los que no intervienen mas que 
estas operaciones. 

Si la operacion fuera: 

3+7-2*7/4 

se podrfa pensar que el ordenador la realizarfa de la forma: 

3+7-2*7/4 
=8*7/4 
=56/4 
= 14 

Sin embargo, el proceso de calculo es como sigue: 

3+7-2*7/4 

=3+7-14/4 

=3+7-3.5 

=10-3.5 

=6.5 

Compruebelo escribiendo 

73+7-2*7/4 [RETURN] 
6.5 

Para alterar este orden se pueden incluir parentesis segun convenga. El ordenador realiza las 
operaciones internas a los parentesis antes que las externas. Compruebelo escribiendo lo 
siguiente: 

? (3+7-2) *7/4 [RETURN] 
14 

El orden completo de prioridad de las operaciones matematicas es el siguiente: 
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t 


Potenciacion 


MOD 


Modulo 


- 


Cambio de signo 


* y / 


Mul tipl icacion y division 


\ 


Division entera 


+ y - 


Suma y resta 



Mas exponentes 

Cuando en los calculos van a intervenir numeros muy grandes o muy pequenos, es conveniente 
a veces utilizar notacion cientifica. La letra E (mayuscula o minuscula) indica que el numero que 
esta a su derecha es una potencia de 1 0. 

Por ejemplo, 300 es lo mismo que 3 x I0 2 . En notacion cientffica escribirfamos 3E2. 
Analogamente, 0.03 es igual a 3 x I0" 2 ; en notacion cientffica, 3E-2. Pruebe los siguientes 
ejemplos. 

Puede escribir 

?30*10 [RETURN] 
300 



o bien 



?3E1*1E1 [RETURN] 
300 



73000*1000 [RETURN] 
3000000 



o bien ... ?3E3*1E3 [RETURN] 



73000*0.001 [RETURN] 
3 



o bien ... ?3E3*lE-3 [RETURN] 
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Parte 7: Grdbelo en disco 

Ahora que ha ejercitado su habilidad como mecanografo escribiendo unas cuantas instrucciones, 
seguramente querra saber como grabar en disco un programa almacenado en la memoria del 
ordenador, para luego cargarlo del disco al ordenador. 

Aunque usted tenga experiencia en la grabacion y carga de programas en cinta, hay algunas 
peculiaridades del sistema de grabacion en disco que es necesario tener en cuenta. 

Hay dos diferencias fundamentales entre los discos y las cintas. La primera es que, a diferencia 
de lo que ocurre con las cintas, para grabar en un disco no basta con sacarlo de la caja e 
introducirlo en la unidad. Los discos nuevos tienen que ser 'formateados' o 'inicializados'; 
enseguida veremos como hacerlo. 

La otra diferencia tiene que ver con los nombres que se puede dar a los ficheros. En el sistema 
de grabacion en cinta, los nombres de los ficheros practicamente no siguen ninguna regla, salvo 
la de la longitud; incluso se pueden grabar ficheros sin nombre. No ocurre asf con el sistema de 
grabacion en disco, en el que los nombres de los ficheros deben atenerse a las normas de CP/M, 
como veremos mas adelante. 

Inicializacion de discos 

Antes de poder escribir datos en un disco virgen es necesario inicializarlo o formatearlo. Esta 
operacion consiste en preparar una especie de estanterfa en el disco; los estantes son los lugares 
en los que mas tarde se va a almacenar la informacion. 

Al inicializar un disco, este queda dividido en 360 zonas: 



Pista 39 




Caja de protection 



2 f Sector 



Pista 



Radialmente el disco se divide en 40 pistas circulares, desde la numero 0, que es la mas externa, 
hasta la 39. Cada pista se divide en 9 sectores. 

Cada sector puede almacenar 5 1 2 bytes; por lo tanto, la capacidad total de cada cara del disco 
es de 1 80K. 
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Primeros pasos en la utilization de los discos maestros de CP/M 

Antes de poder grabar programas en un disco virgen es necesario inicializarlo, y para ello se 
requiere la cara I de los discos maestros de CP/M (suministrados con el ordenador). 

Encienda el equipo e inserte la cara I de los discos de CP/M en la unidad. Si su sistema dispone 
de dos unidades de disco, utilice la incorporada en el ordenador (unidad A). 

Escriba lo siguiente: 

|cpm [RETURN] 

(El simbolo | se obtiene de la tecla @ con [MAYS]) 

Al cabo de unos segundos aparecera en la pantalla el siguiente mensaje: 

CP/M Plus Amstrad Consumer Electronics pic 

Esto es un mensaje de saludo que indica que el ordenador esta siendo controlado por sistema 
operativo CP/M. 

Los caracteres A> constituyen un inductor, analogo al Ready de BASIC, que avisa al usuario de 
que el ordenador esta a la espera de sus instrucciones: 




Una vez cargado CP/M, ya no se pueden teclear instrucciones de BASIC, pues el ordenador no 
las entenderfa. 

Por ejemplo, si escribimos 

els [RETURN] 
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el ordenador repite lo tecleado junto con un signo de interrogacion: 

CLS? 

lo que indica que no ha entendido la instruccion. 



Para dar un breve repaso a algunas ordenes de CP/M, escriba: 

dir [RETURN] 

En la pantalla aparece una lista del contenido del disco, incluidas algunas ordenes transitorias. 
Una de ellas es DISCKIT3. Escriba: 

disckit3 [RETURN] 

Al cabo de unos instantes vera aparecer en la pantalla el mensaje de presentacion de DISCKIT3, 
seguido de: 

One drive found 

Esto confirma que estamos ejecutando el programa de ayuda DISCKIT y que el ordenador solo 
ha detectado una unidad de disco (la incorporada en la maquina). 

En cambio, si esta conectada la segunda unidad de disco, el mensaje sera: 

Two drives found 

En la parte inferior de la pantalla se puede ver el siguiente menu: 

(Copiar) 



Copy 

Format 

Verify 

Exit from program 



(Inicial izar) 

(Verificar) 

(Fin del programa) 



Es el menu principal del programa DISCKIT3. Los numeros recuadrados hacen referenda a las 
teclas de funcion del teclado numerico (marcadas con fO, f4 y f7). Pulsando una de estas teclas se 
elige la opcion deseada. 




Observese que la opcion de este menu hace que se abandone el programa DISCKIT3 y se 
vuelva al modo directo de consola de CP/M (inductor A>). 
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Como lo que queremos hacer ahora es inicializar un disco, pulse la tecla de funcion numero 4 
(«)■ 



PRECAUCION 
AL INICIALIZAR UN DISCO SE BORRA SU CONTENIDO ANTERIOR. 



El programa ofrece un nuevo menu con las diferentes opciones de formato: 



System format 




3 


Data format 




6 


Vendor format 




3 


Exit menu 




■ 



(Formato de sistema / Formato de datos / Formato comercial / Vuelta al menu) 

Pulsando una de las teclas de funcion (f3, f6 o f9) se selecciona el formato deseado. Mas adelante 
explicaremos las diferencias entre los diversos formatos. Por ahora, elija el formato de datos 
pulsando la tecla de funcion numero 6 (f6). 



Observese que al pulsar la tecla . (que esta debajo de f3, f6 y f9) se sale de la opcion de 
inicializacion y se vuelve al menu principal del programa DISCKIT3. 

Despues de pulsar la tecla de funcion numero 6 (y suponiendo que no tenga conectada la 
segunda unidad de disco) podra ver en la pantalla lo siguiente: 

| V | Format A : as Data 

Any other key to exit menu 

(Inicializar con formato de datos / Cualquier otra tecla para volver al menu) 

En este momento debe extraer el disco de CP/M e insertar el disco nuevo, con la cara que 
desee inicializar hacia arriba. 

Pulse ahora la tecla Y (de yes, "sf"), lo que equivale a decirle al ordenador: "de acuerdo, inicializa 
el disco". 

El proceso de inicializacion comienza con la pista y termina con la 39; en cada momento, el 
numero de la pista que esta siendo inicializada aparece en el extremo superior izquierdo de la 
pantalla. 

El sistema no permite inicializar un disco que tenga abierto el orificio de proteccion contra 
escritura. Si lo intenta, el ordenador emite el mensaje: 

Disc write-protected (El disco esta protegido contra escritura) 
Insert disc to format (Insertar disco a inicializar) 
R-etry or C-ancel (R-eintentar o C-ancelar) 

Lo que se debe hacer en este caso es pulsar C para cancelar la operacion, extraer el disco e 
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insertar el disco que sf se quiere inicializar, con el orificio de proteccion obturado. 

Es muy importante no cerrar los orificios de proteccion de los discos que contengan programas 
valiosos. NO CERRAR NUNCA los orificios de proteccion de los discos maestros de CP/M. 

Cuando termina la inicializacion, el ordenador le pide que extraiga el disco recien inicializado y 
que pulse cualquier tecla para continuar. 

Una vez hecho esto, puede inicializar otro disco insertandolo en la unidad y pulsando de nuevo 
la tecla Y. Este proceso se puede repetir tantas veces como discos tenga que inicializar con este 
formato concrete 

Cuando no haya mas discos que inicializar, pulse cualquier tecla (distinta de la Y) para volver al 
menu. 

Mas adelante explicaremos las opciones Copy y Verify. Por ahora nos basta con haber 
aprendido a inicializar discos con CP/M. Reinicialice la maquina con [CONTROL] [MAYS] 
[ESC]. 

Guarde siempre en lugar seguro los discos maestros de CP/M, que son, literalmente, la Nave del 
sistema. En un capitulo posterior explicaremos como hacer 'copias de trabajo' de los discos de 
CP/M, de forma que pueda guardar los originales a salvo de toda posibilidad de accidente. 

Inicializacion en un sistema de 2 unidades de disco 

Siga las instrucciones anteriores: pulse f4 en el menu principal de DISCKIT3 para elegir la opcion 
Format (inicializacion) y luego pulse la tecla f6 para elegir Data format (formato de datos). 

El ordenador le muestra un tercer menu, en el que se puede elegir la unidad de disco que se 
desee utilizar: 



Format A : 




8 




Format B : 




5 




Exit menu 




2 









(Inicializar A: / Inicializar B: / Vuelta al menu) 

Para no tener que extraer el disco de CP/M (cara I) de la unidad A, se puede elegir, pulsando la 
tecla f5, la opcion Format B:. Ponga en la unidad B el disco que desee inicializar. 

Despues de elegida esta opcion, puede pulsar Y para permitir que continue el proceso de 
inicializacion, o bien cualquier otra tecla para volver al menu principal de DISCKIT3. 

Si elige la opcion Format A: (tecla f8), NO OLVIDE extraer de la unidad A el disco de CP/M. 
Inserte luego en ella el disco que desee inicializar. 

NO SE EXPONGA NUNCA AL RIESGO DE BORRAR 
LOS DISCOS MAESTROS DE CP/M 



Ahora que ya tenemos uno o dos discos preparados, vamos a empezar a transferir programas de 
BASIC del ordenador al disco y viceversa. 
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Grabacion de unprograma en disco 

Cuando se tiene un programa en la memoria del ordenador, se lo puede grabar en disco 
mediante la orden 

save "nombrefi" [RETURN] 

Observe que es indispensable dar un nombre al programa. 

El nombre de un fichero grabado en disco consta de dos partes (campos). La primera es 
obligatoria y puede contener hasta 8 caracteres. Se pueden utilizar letras o numeros, pero no 
espacios ni signos de puntuacion. Este primer campo suele contener el nombre del programa. 

El segundo campo es opcional. Puede contener hasta 3 caracteres que no sean ni espacios ni 
signos de puntuacion. Los dos campos se separan por un punto (.). 

Si el usuario no especifica el segundo campo, el sistema le asigna automaticamente un distintivo: 
.BAS para ficheros de BASIC o .BIN para ficheros binarios (en codigo de maquina). 

Para practicar la grabacion en disco, introduzca un programa corto en la memoria del 
ordenador, inserte en la unidad un disco inicializado y escriba lo siguiente: 

save "ejemplo" [RETURN] 

Al cabo de unos segundos aparecera en la pantalla el mensaje Ready, lo que indica que el 
programa ha quedado grabado en el disco. (De no ser asf, observe los mensajes emitidos por el 
ordenador, pues puede ocurrir que no haya insertado el disco en la unidad correcta, que este 
abierto el orificio de proteccion o que se haya equivocado al teclear la orden.) 

Catdlogo 

Una vez grabado el programa, escriba lo siguiente: 

cat [RETURN] 

En la pantalla podra ver 

Drive A: user 
EJEMPLO. BAS IK 
168 K free 

o sea, el nombre del fichero, incluido el segundo campo, seguido de la longitud aproximada en 
K. En la ultima Ifnea se indica tambien el espacio que queda libre en el disco. 

Cargo del disco a la memoria del ordenador 

Los programas se pueden cargar y ejecutar con las ordenes siguientes: 

load "nombrefi" [RETURN] 
run [RETURN] 

Pero tambien se los puede ejecutar directamente con una sola orden: 

run "nombrefi" [RETURN] 

Los programas protegidos solo se pueden ejecutar por este segundo metodo. 
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\Ay\B 

Si tiene conectada la segunda unidad de disco, puede especificar en que unidad desea que se 
realice cada funcion escribiendo 

| a [RETURN] 

o bien 

|b [RETURN] 

antes de las ordenes SAVE, CAT o LOAD. 

Copia de programas de disco a disco 

Para copiar programas de un disco a otro utilizando las ordenes que hemos aprendido en esta 
seccion, basta con hacer lo siguiente: cargar el programa en memoria leyendolo del disco 
original (fuente), sacar el disco, insertar el disco nuevo (destino) y grabar en el el programa. 

En cambio, cuando se dispone de dos unidades de disco, es mas comodo insertar el disco fuente 
en una unidad, por ejemplo la B, y el disco destino en la A. Para copiar un programa se escribe 
entonces lo siguiente: 

|b [RETURN] 

load "nombrefi" [RETURN] 

| a [RETURN] 

save "nombrefi" [RETURN] 

Hay cuatro formas de grabar programas con el CPC6 1 28. Una de ellas es la ya conocida: 

save "nombrefi" [RETURN] 

Las otras tres tienen aplicaciones mas especializadas: 

Ficheros ASCII 

save "nombrefi", a [RETURN] 

El sufijo ,a indica al ordenador que debe grabar el programa o los datos en forma de fichero de 
texto ASCII. Este metodo de grabacion de datos es aplicable a los ficheros generados por 
procesadores de textos y otros programas; lo explicaremos mas detenidamente cuando 
hablemos de esas aplicaciones. 

Ficheros protegidos 

save "nombrefi ",p [RETURN] 

El sufijo ,p indica al ordenador que el fichero debe ser protegido. Cuando un programa esta asf 
protegido, no es posible cargarlo (LOAD) para luego listarlo (LIST), ni tampoco interrumpirlo 
con la tecla [ESC] despues de haber iniciado su ejecucion con RUN. 

Los programas grabados por este procedimiento solo pueden ser ejecutados directamente, bien 
con la orden 

run "nombrefi" [RETURN] 
bien con 
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chain "nombrefi" [RETURN] 

Siempre que se prevea la posibilidad de que mas tarde se vaya a corregir o modificar un 
programa, se debe guardar una copia no protegida, esto es, grabada sin el sufijo ,p. 

Ficheros binarios 

save "nombrefi ",b, <direccion inicial> , <longitud en bytes> [ , <punto de 
entrada opcional> ] [RETURN] 

Esta opcion permite realizar un volcado directo de datos desde la memoria RAM del ordenador 
hacia el disco. Ademas del sufijo ,b, es necesario indicar al ordenador en que direccion de 
memoria empieza el bloque que se desea transferir, cual es la longitud en bytes y, en su caso, en 
que direccion de memoria debe empezar la ejecucion cuando se cargue el fichero como 
programa. 

Volcado depantalla 

Este metodo de grabacion de ficheros binarios permite hacer un volcado de la memoria 
dedicada a la pantalla. El contenido de la pantalla se graba mediante la siguiente orden: 

save "volcpant",b, 49152, 16384 [RETURN] 

donde 49152 es la direccion en la que empieza la zona de memoria dedicada a la pantalla y 
1 6384 es el tamaho de esa zona en bytes. 

Para cargar nuevamente esos datos en el ordenador se escribe: 

load "volcpant" [RETURN] 

En un capftulo posterior de este manual daremos mas informacion sobre la transferencia de 
datos de un disco a otro, de cinta a disco y de disco a cinta. 



Finalmente, asegurese de que ha tenido en cuenta las advertencias que hemos hecho al principio 
del manual, en la seccion titulada 'IMPORTANTE': 

NOTAS DE INSTALACION 5, 6 y 7 (pag. 4) 

NOTAS DE OPERACION 1 , 2, 3, 4, 5, 6, 7 y 9 (pags. 4 y 5) 
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Parte 8: Introduction a los modos depantalla, colores y grdflcos 

El AMSTRAD CPC6 1 28 puede funcionar en tres modos de pantalla: modo 0, modo I y modo 2. 

Al encenderlo, el ordenador selecciona automaticamente el modo I . 

Para apreciar las diferencias entre los tres modos, encienda el ordenador y pulse la tecla del I . 
Mantengala pulsada hasta que se hayan llenado dos lineas de pantalla. Si cuenta los unos, 
observara que hay 40 en cada Ifnea. Esto quiere decir que en modo I la pantalla tiene 40 
columnas. Pulse [RETURN]: el ordenador respondera con un mensaje de Syntax error, pero no 
se preocupe; esta es una forma rapida de obtener nuevamente el mensaje Ready, que indica que 
el ordenador esta preparado para recibir nuestras instrucciones. 

Escriba ahora: 

mode [RETURN] 

Observara que ahora los caracteres son mas grandes. Pulse otra vez la tecla del I y no la suelte 
hasta que se hayan llenado dos Ifneas de la pantalla. Compruebe que ahora hay 20 unos por 
Ifnea. Esto significa que en modo la pantalla tiene 20 columnas. Pulse nuevamente [RETURN] y 
luego escriba: 

mode 2 [RETURN] 

Observe que ahora los caracteres son muy pequehos. Puede comprobar que en modo 2 la 
pantalla tiene 80 columnas. 

Resumiendo, 

• Modo — > 20 columnas 

• Modo I — >40 columnas 

• Modo 2 — > 80 columnas 



Finalmente, vuelva a pulsar [RETURN]. 

Colores 

Este ordenador puede manejar 27 colores. En el monitor de fosforo verde (GT65) aparecen 
como distintas gradaciones de verde. Si usted adquirio el sistema con el monitor GT65, en 
cualquier momento puede comprar la unidad modulador/fuente de alimentacion MP2, con la 
que podra disfrutar de los colores del ordenador conectandolo a un televisor domestico. 

• En modo se puede visualizar simultaneamente 1 6 de los 27 colores disponibles. 

• En modo I se puede visualizar simultaneamente 4 de los 27 colores. 

• En modo 2 se puede visualizar simultaneamente 2 de los 27 colores. 



Se puede controlar los colores del borde, del papel (fondo) y de la pluma (trazo) 
independientemente unos de otros. 

Los 27 colores disponibles son los relacionados en la tabla I , en la que incluimos tambien los 
numeros de referenda para la instruccion INK (tinta). 
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Para mayor 


comodidad, esta tabla aparece 


tambien en la carcasa 


del ordenador, al lado derecho. 


Numero 


Color 


Numero 


Color 


Numero 


Color 


de tinta 




de tinta 




de tinta 







Negro 


9 


Verde 


18 


Verde intenso 


1 


Azul 


10 


Cyan 


19 


Verde mar 


2 


Azul intenso 


II 


Azul celeste 


20 


Cyan intenso 


3 


Rojo 


12 


Amarillo 


21 


Verde lima 


4 


Magenta 


13 


Blanco 


22 


Verde pastel 


5 


Malva 


14 


Azul pastel 


23 


Cyan pastel 


6 


Rojo intenso 


15 


Anaranjado 


24 


Amarillo intenso 


7 


Morado 


16 


Rosado 


25 


Amarillo pastel 


8 


Magenta intenso 


17 


Magenta pastel 


26 


Blanco intenso 



Tabla I . Numeros de tinta y colores asociados. 

Como hemos dicho, el ordenador se pone automaticamente en modo I al encenderlo. Para 
volver a modo I estando en cualquier otro, basta con escribir: 

mode 1 [RETURN] 

Lapantalla 

El borde (BORDER) es el area que rodea el papel (PAPER). (Cuando se enciende el ordenador, 
el borde y el papel son ambos azules.) Los caracteres que escribimos en la pantalla solo puede 
estar en la region interior al borde. El papel es el fondo sobre el que la pluma (PEN) escribe los 
caracteres. 




I ffiHL 



PEN 



BORDER 



PAPER 



Vamos a explicar como se realiza la seleccion de los colores. 

Cuando se enciende o reinicializa el ordenador, este selecciona automaticamente el color 
numero I para el borde. Como puede comprobar en la tabla I , el color numero I es el azul. El 
color del borde se puede cambiar mediante la orden BORDER seguida del numero del color 
deseado. Por ejemplo, escriba: 

border 13 [RETURN] 
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Esto es facil, pero en el interior de la pantalla las cosas son algo mas complicadas: 

Cuando se enciende o reinicializa la maquina, el numero de papel seleccionado automaticamente 
es el 0, y el de la pluma es el I . Esto no quiere decir que los colores correspondientes sean los 
que figuran en la tabla anterior con los numeros y I . 

Lo que ocurre es que el y el I son numeros de papel y de pluma, no numeros de tinta. Vamos 
a explicarnos. Supongamos que tenemos en nuestra mesa cuatro plumas, numeradas del al 3, y 
27 tinteros, numerados del al 26. Es evidente que cuando decimos 'pluma numero I 1 no 
necesariamente estamos refiriendonos al color numero I . La pluma numero I puede estar 
cargada con tinta de cualquier color; de hecho, podemos tener las cuatro plumas cargadas con la 
misma tinta. 

Pues bien, algo similar ocurre en el ordenador. Con la instruccion PEN (pluma) podemos elegir 
la pluma con la que vamos a escribir; la instruccion INK (tinta) nos permite 'cargar' esa pluma 
con tinta del color deseado. 

Recordando que estamos en modo I (40 columnas), consulte la tabla 2 y comprobara que la 
pluma numero I esta cargada inicialmente con tinta de color 24. Pero el color 24 es, como 
podemos ver en la tabla I , amarillo intenso: el color con que se escriben los caracteres cuando 
acabamos de encender el ordenador. 



Numero de 
papel/pluma 



Color de tinta 
ModoO 



Color de tinta 
Modo I 



Color de tinta 
Modo 2 






1 


1 


24 


2 


20 


3 


6 


4 


26 


5 





6 


2 


7 


8 


8 


10 


9 


12 


10 


14 


II 


16 


12 


18 


13 


22 


14 


Parpadeo 1 ,24 


15 


Parpadeo 1 6, 1 1 



I 

24 

20 

6 

I 

24 

20 

6 

I 

24 

20 

6 

I 

24 
20 
6 



I 

24 

I 
24 

I 
24 

I 
24 

I 
24 

I 
24 

I 
24 

I 
24 



Tabla 2. Asignacion inicial de tintas a los papeles y las plumas. 

Las relaciones entre papel, pluma y tinta no son fijas. Los valores que se muestran en la tabla 2 
son los seleccionados automaticamente en el momento de encender la maquina. Se los puede 
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cambiar mediante la instruccion INK (tinta). Esta instruccion va seguida de dos numeros 
(parametros). El primero es el numero de papel o de pluma que vamos a cargar; el segundo es el 
color con que vamos a cargarlo. Los parametros van separados por una coma. 

Puesto que estamos utilizando la pluma numero I , vamos a cambiar el color de tinta 
correspondiente: la cargaremos con tinta de color anaranjado. Escriba: 

ink 1,15 [RETURN] 

Los caracteres han cambiado instantaneamente de color. 

Tambien vamos a cambiar el color del fondo mediante la instruccion INK. Sabemos que el 
numero de papel seleccionado al encender la maquina es el 0; vamos a cambiar el color a verde 
(color numero 9) escribiendo: 

ink 0,9 [RETURN] 

Ahora vamos a cambiar de pluma. Escriba: 

pen 3 [RETURN] 

El color de los caracteres ya escritos no ha cambiado. Esta instruccion afecta solamente a los que 
escribamos a continuacion. En este momento estamos utilizando la pluma numero 3. Como 
puede comprobar en las tablas I y 2, la tinta con que esta pluma esta cargada inicialmente es la 
de color numero 6 (rojo intenso). Para cambiarla a rosado escriba: 

ink 3,16 [RETURN] 

Recuerde que el 3 es el color de la pluma (seleccionado con la anterior instruccion pen 3) y que 
el 1 6 es el color de la tinta con que la cargamos (rosado). 

Cambiemos ahora de papel. Cuando lo hagamos, el anterior color de fondo no cambiara, 
porque ese color ha sido impreso con otro papel. Escriba lo siguiente: 

paper 2 [RETURN] 

Consultando nuevamente las tablas I y 2, compruebe que el color inicialmente asignado al papel 
numero 2 es cyan intenso. Cambielo a negro escribiendo: 

ink 2,0 [RETURN] 

En este momento, en la pantalla tenemos caracteres escritos por las plumas I y 3, sobre fondos 
de papel numeros y 2. Tambien se puede cambiar el color de la tinta de una pluma o de un 
papel que no esten siendo utilizados. Por ejemplo, escriba la orden: 

ink 1,2 [RETURN] 

que cambia el color de todos los caracteres que habiamos escrito antes con la pluma numero I . 
Escriba: 

els [RETURN] 

para borrar la pantalla. 

El lector ya deberfa ser capaz de hacer que el ordenador vuelva a los colores iniciales (borde y 
fondo azul y caracteres amarillos) utilizando las instrucciones BORDER, PAPER, PEN e INK. 
Intentelo. Si no lo consigue, reinicialice el ordenador con [CONTROL] [MAYS] [ESC]. 
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Colores parpadeantes 

Es posible hacer que una tinta cambie intermitentemente de color. Para ello se debe anadir otro 
numero a la instruccion INK que asigna tintas a la pluma utilizada. 

Vamos a hacer que los caracteres que escribamos alternen entre los colores bianco intenso y 
rojo intenso. Reinicialice la maquina con [CONTROL] [MAYS] [ESC] y escriba lo siguiente: 

ink 1, 26, 6 [RETURN] 

En este caso el I es el numero de la pluma, el 26 es el del color bianco intenso y el 6 es el del 
segundo color, rojo intenso. 

El mismo efecto de parpadeo se puede dar a los colores del fondo, para lo cual se ahade un 
segundo numero de color a la instruccion INK que asigna tintas al papel actual. Para hacer que el 
color del fondo alterne entre verde y amarillo intenso escriba: 

ink 0,9,24 [RETURN] 

En este caso es el numero del papel, 9 es el numero del color verde y 24 es el numero el 
segundo color, el amarillo intenso. 

Reinicialice el ordenador con [CONTROL] [MAYS] [ESC]. 

Observe en la tabla 2 que en modo hay dos numeros de pluma y dos numeros de papel, el 14 
y el 15, que tienen asignadas tintas parpadeantes. Es decir, sus correspondientes tintas estan 
preprogramadas con un color adicional. 

Escriba lo siguiente: 

mode [RETURN] 
pen 15 [RETURN] 

y vera en la pantalla la palabra Ready parpadeando entre azul celeste y rosado. Escriba ahora: 

paper 14 [RETURN] 
els 

El texto continua parpadeando como antes, pero ademas el fondo ha empezado a alternar entre 
los colores amarillo y azul. 

Los numeros de pluma y de papel 14 y 15 pueden ser reprogramados, mediante la adecuada 
instruccion INK, para que parpadeen con otras tintas o bien para asignarles un color fijo. 

Finalmente, se puede hacer parpadear el borde sin mas que especificar un segundo numero de 
color en la instruccion BORDER. Escriba: 

border 6,9 [RETURN] 

El borde esta parpadeando entre los colores rojo intenso y verde. Observe que al borde se le 
puede asignar uno o dos colores cualesquiera de los 27 disponibles, independientemente del 
modo en que este la pantalla (0, I o 2). 

Reinicialice el ordenador con [CONTROL] [MAYS] [ESC]. 

Introduzca y ejecute el siguiente programa, que demuestra los colores disponibles. 

10 MODE [RETURN] 

20 velocidad=600: REM establece velocidad del programa [RETURN] 

30 FOR b=0 TO 26 [RETURN] 

40 LOCATE 1,12 [RETURN] 
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50 BORDER b [RETURN] 

60 PRINT "color del borde:";b [RETURN] 

70 FOR t=l TO velocidad [RETURN] 

80 NEXT t,b [RETURN] 

90 CLG [RETURN] 

100 FOR p=0 TO 15 [RETURN] 

110 PAPER p [RETURN] 

120 PRINT "papel:";p [RETURN] 

130 FOR n=0 TO 15 [RETURN] 

140 PEN n [RETURN] 

150 PRINT "pi lima: ";n [RETURN] 

160 NEXT n [RETURN] 

170 FOR t=l TO velocidad*2 [RETURN] 

180 NEXT t,p [RETURN] 

190 MODE 1 [RETURN] 

200 BORDER 1 [RETURN] 

210 PAPER [RETURN] 

220 PEN 1 [RETURN] 

230 INK 0,1 [RETURN] 

240 INK 1,24 [RETURN] 

run [RETURN] 




IP- 1 UriYk-Bh. 
HP- 1 UflVhSl 

IP- 1 UflVfe-Bt. 



1 1 uw-a 



jp» 1 U*vh-5L 

IP- 1 UriYk-^t 

JP" 1 UflVfe-Bt. 

]p- 1 UtfVfe.sh. 



HHUitt 




OBSERVACIONMUYMPORTANTE 

En este programa, asf como en otros capftulos y listados de este manual, las palabras clave de 
BASIC aparecen en mayusculas, pues el ordenador convierte automaticamente minusculas a 
mayusculas cuando se le pide que haga un listado del programa (con LIST). En general, es 
preferible escribir las instrucciones en minusculas; esto ayudara mas tarde a detectar errores, ya 
que las palabras clave de BASIC que contengan algun error no seran convertidas a mayusculas. 

En lo que resta de este Curso de introduccion' daremos los listados indistintamente en 
mayusculas y minusculas, para que usted se familiarice con esta caracterfstica de BASIC. 

Los nombres de las variables, tales como x o a$, no son convertidos a mayusculas al listar el 
programa. Sin embargo, el ordenador reconoce las variables tanto si estan en mayusculas como 
si estan en minusculas; de hecho, para el ordenador x es la misma variable que X. 

Atencion 

A partir de ahora no vamos a seguir recordandole que debe pulsar [RETURN] al terminar de 
escribir cada Ifnea de programa y cada orden directa, pues suponemos que usted ya esta 
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suficientemente habituado a hacerlo. 



Nota del revisor (2008): A partir de ahora, los fuentes de un tamano no muy pequeno (mas de 
1 Ifneas) tendran la sintaxis realzada en colores, para que sean mas faciles de leer y de descubrir 
en ellos errores frecuentes, como escribir una letra "ele" en vez de la cifra "uno", o la "o 
mayuscula" en vez de un "cero" y viceversa. Si los teclea en su Amstrad CPC no vera estos 
colores en el fuente, pero si utiliza un emulador (vea el apendice 5) y teclea los fuentes desde un 
PC usando un editor avanzado, sf podra ver el fuente en colores mientras lo escribe. 



Grdficos 

En la memoria del ordenador esta pregrabado el diseno de cierto numero de caracteres. Para 
escribirlos en la pantalla necesitamos la palabra clave: 

chr$( ) 

Dentro de los parentesis se pone el numero del caracter, que debe estar en el margen de 32 a 
255. 

Reinicialice el ordenador con [CONTROL] [MAYS] [ESC] y escriba lo siguiente: 

print chr$(250) 

No olvide pulsar [RETURN]. En la pantalla ha aparecido el caracter numero 250, que es la figura 
de un hombre caminando hacia la derecha. 



print chr$(S5Q> 



Para ver todos los caracteres y sfmbolos, junto con su numero correspondiente, introduzca y 
ejecute el siguiente programa (recuerde que debe pulsar [RETURN] al final de cada Ifnea): 

10 for n=32 to 255 
20 print n;chr$(n) ; 
30 next n 
run 
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IB FOR m32 TO ESS 

SO PRINT n;CHRt(ii); 

30 NEXT n 

Ready 

run 

32 33 ! 34 " 3S t 36 I 37 7, 38 8 39 ' 40 ( 41 ) 42 * 43 + 44 . 45 - 46 . 47 / 
48 O 49 1 SO 2 SI 3 52 4 S3 S 54 6 SS 7 56 8 57 9 58 : S3 : 60 < 61 = 62 > 63 ? 



U1 IT UU n UU 1J U I \j UU 1/ UU Li I U I IX U I U II I J J. II U N 11 IU U II II I U II I J V 

80 P 81 G 82 R 83 S 84 T 85 U 86 U 87 H 88 X 89 V 90 Z 91 [ 92 N 93 ] 94 t 95 _ 

96 x 97 a 98 b 99 c 100 d 101 e 102 f 103 g 104 h 105 i 106 j 107 k 108 1 109 n 

110 n 111 n IIP n 111 n lid n 1 1 H c 1 1 fi t 117 n lift n 110 m IPO v 1 PI n 1PP * 



136 , 137 \ 138 I 139 1 140 , 141 L 142 J 143 I 144 - 145 ■ 146 - 147 "■ 148 i 

149 J 150 t 151 jf 152 ■ 153 " 154 - 155 ± 156 i 157 j 158 T 153 + 160 A 161 > 

162 A 163 t 164 6 165 If 166 § 167 l 168 k 169 h 170 i 171 i 172 t 173 ■> 174 I 

175 i 176 k 177 B 178 8 179 6 180 € 181 182 X 183 v 184 n 185 r 186 i 187 j* 

188 X 189 u 190 I 191 Q 192 t 193 \ 194 / 19S v 196 ft 197 > 198 v 199 [ 200 ^ 

201 C 202 203 X 204 / 205 \ 206 » 207 I 208 i 209 I 210 . 211 I 212 f 213 1 

214 i 215 L 216 g 217 | 218 , 219 f 220 F 221 1 222 J 223 k 224 I 225 S 226 * 

227 f 228 I 229 4 230 231 • 232 D 233 I 234 rf 235 f 236 j 237 J 238 B 239 A 

240 + 241 j 242 f 243 + 244 a 245 t 246 ► 247 ^ 248 ? 249 I 250 | 251 | 252 i 
253 + 254 J 255 » 
Ready 



225 9 226 4 
238 B 239 i 
251 | 252 i 



Todos estos caracteres y numeros figuran en el capftulo 'Para su referenda ... 

LOCATE 

Esta instruccion sirve para colocar el cursor en un lugar especificado de la pantalla. A menos que 
se lo mueva con una instruccion LOCATE, el punto de partida del cursor es el extremo superior 
izquierdo de la pantalla, punto de coordenadas I , I (en el sistema de coordenadas x, y, donde x 
es la posicion horizontal e y es la vertical). En modo I hay 40 columnas y 25 filas (o Ifneas). Asf, 
para colocar el cursor en el centra de la primera Ifnea, tendremos que utilizar 20, 1 como 
coordenadas x, y. 

Teclee lo siguiente (sin olvidar pulsar [RETURN] al final de cada Ifnea): 

mode 1 

(borra la pantalla y Neva el cursor al extremo superior izquierdo) 

10 locate 20,1 
20 print chr$(250) 
run 

Para comprobar que el caracter esta en la primera linea, cambiemos el color del borde: 
border 

El borde es ahora negro y podemos ver que el hombrecillo esta en el centra de la Ifnea superior. 



En modo solo hay 20 columnas, pero las mismas 25 Ifneas. Si ahora escribe: 
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mode 
run 

vera que el hombre se ha ido al extremo superior derecho de la pantalla. Esto ha ocurrido 
porque la coordenada x= 20 es la ultima columna en modo 0. Escriba: 

mode 2 
run 

Vuelva a modo I con: 
mode 1 

Ahora pruebe usted con diferentes posiciones en locate y diferentes numeros en chr$( ). Por 
ejemplo, escriba: 

locate 20,12:print chr$(240) 

y vera una flecha en el centro de la pantalla. Observe que en esta instruccion: 

• 20 es la coordenada x (horizontal) (margen: I a 40) 

• 1 2 es la coordenada y (vertical) (margen: I a 25) 

• 240 es el numero del caracter (margen: 32 a 255) 

Para mover el caracter 250 de izquierda a derecha de la pantalla, escriba lo siguiente: 

10 CLS 

20 FOR x-1 TO 39 

30 LOCATE x,20 

50 PRINT CHR$(250) 

60 NEXT x 

70 GOTO 10 

run 

Pulse [ESC] dos veces para abandonar el programa. 

Si queremos borrar el caracter recien escrito antes de escribir el siguiente, debemos hacer 
50 PRINT " "; CHR$(250) 

(Esta nueva Ifnea 50 reemplaza automaticamente la que tenfamos antes.) Escriba: 
run 

FRAME 

Para mejorar la ilusion de movimiento del caracter por la pantalla, ahada al programa anterior la 
siguiente Ifnea: 

40 frame 

La instruccion FRAME sincroniza el movimiento de objetos por la pantalla con la frecuencia a la 
que se envian las imagenes al monitor. La explicacion es demasiado tecnica, pero basta con que 
recordemos que esta instruccion se debe utilizar siempre que queramos mover objetos 
suavemente por la pantalla. 
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Este programa se puede mejorar introduciendo pausas y utilizando un sfmbolo distinto para el 
retroceso. 

Escriba: 
list 

y anada las siguientes Ifneas: 

70 FOR n-1 TO 300: NEXT n 

80 FOR x=39 TO 1 STEP -1 

90 LOCATE x,20 

100 FRAME 

110 PRINT CHR$(251);" " 

120 NEXT x 

130 FOR n-1 TO 300:NEXT n 

140 GOTO 20 

run 

Nota del revisor (2008): La orden FRAME esta disponible en los Amstrad CPC6I28 y en los 
CPC664, pero no en el modelo inicial CPC464. En los CPC464 se puede imitar, usando en su 
lugar: 

CALL &BD19 



PLOT 

La instruccion PLOT es analoga a LOCATE, pero controla la posicion del cursor grafico y utiliza 
un sistema de coordenadas distinto, en el que las distancias se miden en pixels (un pixel, o punto 
grafico, es la minima area de la pantalla controlable individualmente). 

El cursor grafico es invisible, y distinto en todos los aspectos del cursor de texto. 

La pantalla se divide en 640 puntos en horizontal por 400 en vertical. Las coordenadas x, y se 
toman con respecto al extremo inferior izquierdo de la pantalla, que es el punto de coordenadas 
0,0. A diferencia de lo que ocurrfa con LOCATE, las coordenadas de este sistema no dependen 
del modo de pantalla (0, I o 2). 

Para comprobarlo, reinicialice la maquina con [CONTROL] [MAYS] [ESC] y escriba: 

plot 320,200 

Observe el punto que ha aparecido en el centra de la pantalla. 

Hagamos lo mismo en modo 0: 

mode 

plot 320,200 

El punto sigue estando en el centro de la pantalla, pero es mas grande. Para ver el efecto en 
modo 2 escriba: 

mode 2 

plot 320,200 

Como era de esperar, el punto sigue centrado, pero es mucho mas pequeho. 

Dibuje unos cuantos puntos en diversos lugares de la pantalla y en modos distintos para 
familiarizarse con esta instruccion. Cuando haya terminado, escriba: 
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mode 1 
para volver a modo I y borrar la pantalla. 

DRAW 

Reinicialice la maquina con [CONTROL] [MAYS] [ESC]. La instruccion DRAW dibuja una recta a 
partir de la posicion actual del cursor grafico. Para verla en accion, dibuje un rectangulo con el 
siguiente programa: 

5 els 

10 plot 10,10 
20 draw 10,390 
30 draw 630,390 
40 draw 630,10 
50 draw 10,10 
60 goto 60 
run 

En la linea 10 la instruccion PLOT coloca el cursor en el punto de partida deseado. A 
continuacion, las instrucciones DRAW van dibujando segmentos de recta: hacia arriba, hacia la 
derecha, etc. 

Pulse [ESC] dos veces para abandonar el programa. 

(Observe la Ifnea 60 de este programa. Esta linea establece un bucle infinito, del que solo se sale 
deteniendo el programa. Una instruccion de este tipo es util cuando se quiere evitar que el 
ordenador exhiba el mensaje Ready al terminar el programa.) 

Anada al programa las siguientes lineas, las cuales dibujan un segundo rectangulo dentro del 
anterior: 

60 plot 20,20 
70 draw 20,380 
80 draw 620,380 
90 draw 620,20 
100 draw 20,20 
110 goto 110 
run 

Pulse [ESC] dos veces para detener el programa. 

MOVE 

Esta instruccion funciona igual que PLOT en cuanto a llevar el cursor grafico a la posicion 
especificada, pero no dibuja el punto. 

Escriba: 

els 

move 639,399 

Aunque no podamos verlo, hemos llevado el cursor al extremo superior derecho de la pantalla. 

Para demostrarlo, vamos a dibujar una recta desde ese punto hasta el centra de la pantalla. 
Escriba: 
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draw 320,200 



Circunferencias 

Las circunferencias se pueden dibujar punto a punto o con trazo continue Una forma de dibujar 
una circunferencia consiste en dibujar puntos en las posiciones correctas. En la figura siguiente se 
ilustra como se calculan las coordenadas x, y de un punto p de la circunferencia. Las formulas 
son: 

x= 1 90*cos(a) 

y= 1 90*sin(a) 











P 








y 










Aa 




1 


BORDE DE \ 

LA PANTALLA \ 


c 


X 




' 


/ 










320 
U 


» 







Dibujo de una circunferencia 

En los programas anteriores hemos referido todos los dibujos al extremo inferior izquierdo de la 

pantalla. Si queremos que nuestra 

circunferencia quede centrada en la 

pantalla, debemos situar su centro en el 

punto de coordenadas 320,200, y luego 

sumar a estos valores los dados por las 

formulas anteriores. 

El siguiente programa dibuja punto a 
punto una circunferencia: 

new 

10 CLS 

20 DEG 

30 FOR a-1 TO 360 

40 MOVE 320,200 

50 PLOT 320+190*C0S(a),200+190*SIN(a) 

60 NEXT 

run 




Observe que hemos dado la orden NEW antes de introducir el programa. Esta orden hace que 
el ordenador borre el programa que en ese momento tenga en la memoria (de forma similar a lo 
que ocurre cuando se pulsa [CONTROL] [MAYS] [ESC]). Sin embargo, la pantalla no se borra. 
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El radio de la circunferencia se puede reducir poniendo en lugar de 1 90 un numero menor de 
pixels. 

Para ver el efecto de dibujar la circunferencia de otra forma (en radianes), borre la Ifnea 20 
escribiendo: 

20 

En lugar de punto a punto, podemos dibujar la circunferencia con trazo continue Modifique la 
linea 50 para poner draw en lugar de plot. La Ifnea sera entonces: 

50 DRAW 320+190*C0S(a),200+190*SIN(a) 




Nota del revisor (2008): Este programa no dibuja una circunferencia de trazo continuo, sino 

Ifneas desde el centra de la pantalla hasta 

ciertos puntos del exterior, como se ve en la 

imagen anterior, porque la orden MOVE se 

repite en cada nueva "vuelta" del FOR. Para que 

realmente sea una circunferencia de trazo 

continuo, la orden MOVE deberia llevar al 

punto inicial y no repetirse, reemplazando la 

linea 40 del ejemplo anterior por una Ifnea 25 

que se situe en el primer punto de la 

circunferencia, como en el siguiente ejemplo: 

10 CLS 
20 DEG 

25 MOVE 320+190,200+0 

30 FOR a-1 TO 360 

50 DRAW 320+190*C0S(a),200+190*SIN(a) 

60 NEXT 




Pruebe esta modificacion con la Ifnea 20 y sin ella. 

Observe que en la Ifnea 60 de este programa hemos puesto NEXT en lugar de NEXT a. En 
efecto, se puede omitir el nombre de la variable, pues el ordenador se encarga de averiguar a 
que FOR corresponde cada NEXT. No obstante, en los programas en los que haya muchos 
bucles FOR ... NEXT, puede ser conveniente poner los nombres de las variables despues de 
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NEXT para que el programa sea mas inteligible cuando se lo este corrigiendo o estudiando. 

ORIGIN 

En el programa anterior utilizabamos la instruccion MOVE para establecer el centro de la 
circunferencia y luego sumabamos a las coordenadas del centro las coordenadas de los puntos 
de la circunferencia. Podemos evitar esas sumas si redefinimos la posicion del origen de 
coordenadas con la instruccion ORIGIN. El ordenador entendera las coordenadas que se le 
suministren a continuacion como referidas al nuevo origen. Escriba lo siguiente: 

new 

10 CLS 

20 FOR a-1 TO 360 

30 ORIGIN 320,200 

40 PLOT 190*C0S(a),190*SIN(a) 

50 NEXT 

run 

Nota del revisor (2008): La orden ORIGIN no tiene efecto solo para la siguiente orden, sino 
que su efecto se conserva hasta otra nueva orden ORIGIN (o hasta que se cambia el modo de 
pantalla con MODE), por lo que no es necesario repetir ORIGIN en cada "vuelta" del FOR del 
programa anterior, que se podrfa reescribir asi: 

10 CLS 

15 ORIGIN 320,200 

20 FOR a-1 TO 360 

40 PLOT 190*C0S(a),190*SIN(a) 

50 NEXT 



El siguiente programa dibuja cuatro circunferencias mas pequenas: 

new 

10 CLS 

20 FOR a-1 TO 360 

30 ORIGIN 196,282 

40 PLOT 50*C0S(a),50*SIN(a) 

50 ORIGIN 442,282 

60 PLOT 50*C0S(a),50*SIN(a) 

70 ORIGIN 196,116 

80 PLOT 50*C0S(a),50*SIN(a) 

90 ORIGIN 442,116 

100 PLOT 50*C0S(a),50*SIN(a) 

110 NEXT 

run 

Otra forma de dibujar la circunferencia (con trazo continuo) es la siguiente: 

new 

10 MODE 1 

20 ORIGIN 320,200 

30 DEG 

40 MOVE 0,190 

50 FOR a=0 TO 360 STEP 10 

60 DRAW 190*SIN(a), 190*C0S(a) 

70 NEXT 
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run 

En este caso se van dibujando pequenos segmentos de recta, de un punto al siguiente de la 
circunferencia. Este metodo es mucho mas rapido que el de dibujo punto a punto. 

Observe una vez mas el efecto de la instruccion DEG: suprima la Ifnea 30 y ejecute el programa. 

FILL 

La instruccion FILL (rellenar) se utiliza para rellenar una region de la pantalla que este delimitada 
por graficos o por los bordes de la pantalla. 

Reinicialice la maquina con [CONTROL] [MAYS] [ESC] y luego escriba: 

new 

10 els 

20 move 20,20 

30 draw 620,20 

40 draw 310,380 

50 draw 20,20 

run 



En la pantalla ha aparecido un triangulo. 
Lleve el cursor grafico al centro de la 
pantalla con la orden 

move 320,200 

Vamos a utilizar la instruccion FILL 
seguida de un numero de pluma, por 
ejemplo el 3, para rellenar con la tinta de 
la pluma especificada el recinto cerrado 
en que se encuentra el cursor. Escriba lo 
siguiente: 

fill 3 



Lleve el cursor al exterior del triangulo con la orden 
move 0,0 

Observe que ocurre cuando escriba: 
fill 2 

El ordenador ha usado la pluma numero 2 para rellenar la zona delimitada por el dibujo y los 
bordes de la pantalla. 



Nota del revisor (2008): La orden FILL esta disponible en los Amstrad CPC6I28 y en los 
CPC664, pero no en el modelo inicial CPC464. 



Modifique ahora el programa escribiendo la lineas siguientes y vea que ocurre: 

50 draw 50,50 
60 move 320,200 
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70 fill 3 
run 

La tinta 'rezuma' por la ranuras. 

Veamoslo con otro ejemplo. Rellenemos una circunferencia dibujada punto a punto: 

new 

10 CLS 

20 FOR a-1 TO 360 

30 ORIGIN 320,200 

40 PLOT 190*C0S(a),190*SIN(a) 

50 NEXT 

60 MOVE -188,0 

70 FILL 3 

run 

Pruebe ahora con: 

new 

10 MODE 1 

20 ORIGIN 320,200 

30 DEG 

40 MOVE 0,190 

50 FOR d=0 TO 360 STEP 10 

60 DRAW 190*SIN(d),190*C0S(d) 

70 NEXT 

80 MOVE -188,0 

90 FILL 3 

run 

Para hacer que el borde del circulo sea invisible, dibujamos la circunferencia con tinta del mismo 
color que la del papel. Anada la siguiente Ifnea: 

45 GRAPHICS PEN 2: INK 2,1 
run 

La instruccion GRAPHICS PEN selecciona la pluma que haya de ser utilizada para' dibujar 
graficos. La instruccion INK especifica el color de tinta para esa pluma, que en este caso coincide 
con el color del papel (color numero I ). 

Finalmente, introduzca y pruebe el siguiente programa: 



new 

10 MODE 0: BORDER 13 

20 MOVE 0,200: DRAW 640,200 

30 FOR x=80 TO 560 STEP 80 

40 MOVE x,0:DRAW x,400 

50 NEXT: MOVE -40,300 

60 FOR c=0 TO 7 

70 MOVER 80,0: FILL c 

80 MOVER 0,-200: FILL c+8 

90 MOVER 0,200:NEXT 

100 GOTO 100 

run 
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Tambien se puede cambiar los colores de las zonas rellenadas: 

100 SPEED INK 30,30 

110 BORDER RND*26,RND*26 

120 INK RND*15,RND*26,RND*26 

130 FOR t=l TO 500: NEXT: GOTO 110 

run 

Otros detalles ... 

En la seccion 'Dicho graficamente', del capftulo titulado 'Cuando usted guste ...', daremos una 
explicacion mas detallada de los graficos del CPC6I28. 

Para concluir esta seccion, le ofrecemos unos programas de demostracion de graficos que 
incorporan muchas instrucciones que el lector ya deberia entender. Todos ellos dibujan figuras 
en la pantalla continuamente. 

10 BORDER 0: GRAPHICS PEN 1 

20 m=CINT(RND*2):M0DE m 

30 il=RND*26: i2=RND*26 

40 IF ABS(il-i2)<10 THEN 30 

50 INK 0,il:INK l,i2 

60 s=RND*5+3:0RIGIN 320,-100 

70 FOR x=-1000 TO STEP s 

80 MOVE 0,0: DRAW x, 300: DRAW 0,600 

90 MOVE 0,0: DRAW -x, 300: DRAW 0,600 

100 NEXT: FOR t=l TO 2000: NEXT: GOTO 20 

run 

10 MODE 1: BORDER 0: PAPER 

20 GRAPHICS PEN 2:INK 0,0:i=14 

30 EVERY 2200 G0SUB 150 

40 indicador=0:CLG 

50 INK 2,14+RND*12 

60 b%=RND*5+l 

70 c%=RND*5+l 

80 ORIGIN 320,200 

90 FOR a=0 TO 1000 STEP PI/30 

100 x%=100*C0S(a) 

110 MOVE x%, y% 

120 DRAW 200*C0S(a/b%),200*SIN(a/c%) 

130 IF indicador=l THEN 40 

140 NEXT 

150 indicador=l: RETURN 

run 

10 MODE 1: BORDER DEG 

20 PRINT "Por favor, espere" 

30 FOR n-1 TO 3 

40 INK 0,0:INK 1,26:INK 2,6:INK 3,18 

50 IF n-1 THEN sa=120 

60 IF n=2 THEN sa=135 

70 IF n=3 THEN sa=150 

80 IF n-1 THEN ORIGIN 0,-50,0,640,0,400 ELSE ORIGIN 0,0,0,640,0,400 
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90 DIM cx(5),cy(5),r(5),lc(5) 

100 DIM np(5) 

110 DIM px%(5,81),py%(5,81) 

120 st=l:cx(l)=320:cy(l)=200:r(l)=80 

130 FOR st-1 TO 4 

140 r(st+l)=r(st)/2 

150 NEXT st 

160 FOR st=l TO 5 

170 lc(st)=0:np(st)=0 

180 np(st)=np(st)+l 

190 px%(st,np(st))=r(st)*SIN(lc(st)) 

200 py%(st,np(st))=r(st)*COS(lc(st)) 

210 lc(st)=lc(st)+360/r(st) 

220 IF lc(st)<360 THEN 180 

230 px%(st,np(st)+l)=px%(st,l) 

240 py%(st,np(st)+l)=py%(st,l) 

250 NEXT st 

260 CLS:cj=REMAIN(l) :cj=REMAIN(2) 

270 cj=REMAIN(3):INK l,2:st=l 

280 GOSUB 350 

290 LOCATE 1,1 

300 EVERY 25,1 GOSUB 510 

310 EVERY 15,2 GOSUB 550 

320 EVERY 5,3 GOSUB 590 

330 ERASE cx,cy,r,lc,np,px%,py%:NEXT 

340 GOTO 340 

350 cx%=cx(st):cy%=cy(st):lc(st)=0 

360 FOR x%=l TO np(st) 

370 MOVE cx%,cy% 

380 DRAW cx%+px%(st,x%),cy%+py%(st,x%),l+(st MOD 3) 

390 DRAW cx%+px%(st,x%+l),cy%+py%(st,x%+l),l+(st MOD 3) 

400 NEXT x% 

410 IF st-5 THEN RETURN 

420 lc(st)=0 

430 cx(st+l)=cx(st)+1.5*r(st)*SIN(sa+lc(st)) 

440 cy(st+l)=cy(st)+1.5*r(st)*C0S(sa+lc(st)) 

450 st-st+1 

460 GOSUB 350 

470 st=st-l 

480 lc(st)=lc(st)+2*sa 

490 IF (lc(st) MOD 360)<>0 THEN 430 

500 RETURN 

510 ik(l)=l+RND*25 

520 IF ik(l)=ik(2) OR ik(l)=ik(3) THEN 510 

530 INK l,ik(l) 

540 RETURN 

550 ik(2)=l+RND*25 

560 IF ik(2)=ik(l) OR ik(2)=ik(3) THEN 550 

570 INK 2,ik(2) 

580 RETURN 

590 ik(3)=l+RND*25 

600 IF ik(3)=ik(l) OR ik(3)=ik(2) THEN 590 

610 INK 3,ik(3) 

620 RETURN 
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Parte 9: Sonidos 

El ordenador emite su sonido a traves del altavoz que tiene incorporado. Si esta utilizando la 
unidad modulador/fuente de alimentacion MP2 y un televisor domestico, baje el mando de 
volumen del televisor al mfnimo. 

El nivel de sonido se ajusta con el mando VOLUMEN que hay en el panel posterior del 
ordenador. Tambien es posible enviar el sonido a un amplificador externo, por medio de la 
salida marcada con ESTEREO en el ordenador. De esta forma se puede ofr el sonido en 
estereofonfa, utilizando los altavoces o los auriculares de un equipo de alta fidelidad. En la parte 
2 de este 'Curso de introduccion' se explica como tomar las sehales de la salida ESTEREO del 
ordenador. 

La instruction SOUND 

La instruccion SOUND tiene siete parametros. Los dos primeros son imprescindibles, mientras 
que los restantes son opcionales. La forma de la instruccion es la siguiente: 

SOUND <situaci6n de canales>, <periodo de tono>, <duraci6n>, <volumen>, 
<envolvente de volumen), <envolvente de tono>, <periodo de ruido> 

Parece complicada a primera vista, pero veremos que en realidad no lo es tanto cuando 
hayamos analizado el significado de todos los parametros. Asi pues, estudiemos los parametros 
uno por uno. 

Situation de los canales 

Para no complicar las cosas, por ahora nos limitaremos a considerar este parametro como 
simple selector de canales. Hay tres canales de sonido; de momento solo utilizaremos el numero 
I. 

Periodo de tono 

El periodo de tono es la forma tecnica de especificar el tono del sonido; en otras palabras, de 
identificar la nota (DO, RE, Ml, FA, etc.). Cada nota tiene un numero de identificacion, que es el 
periodo de tono. Si consulta el capftulo 'Para su referenda.. . ', comprobara que la nota DO 
media tiene un periodo de tono de 239. 

Reinicialice el ordenador con [CONTROL] [MAYS] [ESC] y luego escriba: 

10 sound 1,239 
run 

Acaba de oir la nota DO media, que ha sonado durante 0.2 segundos. 

iNo ha ofdo nada? Suba el control de volumen del ordenador y vuelva a ejecutar el programa. 

Duration 

Este parametro especifica la duracion del sonido. Las unidades son de centesimas de segundo 
(0.01 s). Si no se especifica duracion, el ordenador toma el valor implicito para este parametro, 
que es 20; por eso la nota que acaba de ofr ha durado 0.0 1 x20=0.2 segundos. 
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Si queremos que la nota dure I segundo, el valor del parametro tendra que ser 100; para dos 
segundos, 200; etc. Escriba lo siguiente: 

10 sound 1,239,200 
run 

Acaba de oir la nota DO media con duracion de 2 segundos. 

Volumen 

Este parametro especifica el volumen de la nota. El margen de valores va de a 15. El 'volumen' 

es el mfnimo; el 15 es el maximo. Si no se especifica ningun valor, el ordenador toma el 
implicito, que es 1 2. Escriba lo siguiente: 

10 sound 1,239,200,5 
run 

Fijese en el volumen de este sonido y comparelo con el siguiente: 

10 sound 1,239,200,15 
run 

Como puede observar, es mucho mas intenso que el anterior. 

Envolvente de volumen 

Se puede hacer que el volumen de una nota no sea constante, sino que vane con el tiempo 
mientras la nota esta sonando. Para especificar la forma de variacion del volumen en funcion del 
tiempo necesitamos otra instruccion: ENV. De hecho, podemos definir varias envolventes de 
volumen distintas, cada una de las cuales tendra su numero de referenda. Asf, si hemos definido 
la envolvente de volumen numero I, podemos utilizarla poniendo en la instruccion SOUND el 
numero I como parametro de envolvente de volumen. En seguida explicaremos como se 
definen las envolventes de volumen. 

Envolvente de tono 

Se puede hacer que el tono de una nota no sea constante, sino que vane con el tiempo mientras 
la nota esta sonando. Para especificar la forma de variacion del tono en funcion del tiempo 
necesitamos otra instruccion: ENT. De hecho, podemos definir varias envolventes de tono 
distintas, cada una de las cuales tendra su numero de referenda. Asi, si hemos definido la 
envolvente de tono numero I , podemos utilizarla poniendo en la instruccion SOUND el numero 

1 como parametro de envolvente de tono. En seguida explicaremos como se definen las 
envolventes de tono. 

Ruido 

El periodo de ruido es el ultimo parametro de la instruccion SOUND. Las caracteristicas del 
ruido se pueden variar eligiendo para este parametro un valor comprendido entre I y 3 1 . Ponga 
el valor 2 en la instruccion SOUND y escuche el efecto. Ponga luego el numero 27 y observe la 
diferencia. Escriba: 

10 sound 1,239,200, 15, ,2 

En esta instruccion hemos dejado en bianco dos parametros (,,) porque aun no hemos creado 
ninguna envolvente de volumen ni de tono. 
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Definition de una envolvente de volumen 

La instruccion que define envolventes de volumen es ENV. En su version mas sencilla, esta 
instruccion Neva 4 parametros. Su forma es la siguiente: 

ENV <numero de envoi vente>, <numero de escalones<, <altura de cada escalon>, 
<duracion de cada escalon> 

Estudiemos los parametros uno por uno. 

Numero de la envolvente 

Es el numero de referenda (entre y 1 5) por el que la invocaremos en la instruccion SOUND. 

Numero de escalones 

Este parametro especifica en cuantas etapas queremos que la nota evolucione antes de terminar. 
Por ejemplo, si la nota ha de durar 10 segundos, podemos dividirla en 10 etapas de I segundo 
cada una; en tal caso, el parametro 'numero de escalones' tendrfa el valor 10. 

El margen de este parametro es de a 1 27. 

Altura de cada escalon 

En cada etapa, el volumen puede variar con respecto al nivel anterior en un numero de unidades 
comprendido en y 15. Estos 16 niveles de sonido son los mismos que se definen en la 
instruccion SOUND. Sin embargo, el margen del parametro 'altura de escalon' es de -128 a 
+ 1 27; el nivel del volumen vuelve a cada vez que sobrepasa el 1 5. 

Duracion de cada escalon 

Este parametro especifica la duracion de cada escalon en unidades de centesimas de segundo. El 
margen de valores es de a 255; esto significa que la duracion maxima de cada escalon es de 
2.56 segundos (el se considera como 256). 

Por consiguiente, el producto del parametro 'numero de escalones' por el parametro 'duracion 
de cada escalon' no deberfa ser mayor que el parametro 'duracion' especificado en la instruccion 
SOUND. De lo contrario, el sonido terminara antes de que se hayan completado todos los 
escalones de la envolvente. (En ese caso el ordenador ignora el resto del contenido de la 
envolvente.) 

Analogamente, si la duracion especificada en SOUND es mayor que la impuesta por el producto 
de 'numero de escalones' por 'duracion de cada escalon', la nota continuara sonando aunque se 
hayan terminado los escalones de la envolvente de volumen, y lo hara al nivel del ultimo escalon 
de la envolvente. 

Para practicar con las envolventes de volumen, pruebe el siguiente programa: 

10 env 1,10,1,100 

20 sound 1,142,1000,1,1 

run 

La Ifnea 20 especifica un sonido con numero de tono igual a 142 (LA internacional), duracion de 
10 segundos, volumen inicial igual a I y envolvente de tono numero I, la cual consiste en 10 
escalones de altura I y duracion I segundo (100 xO.O I). 

Pruebe las siguientes formas de la Ifnea 10 y trate de escuchar el efecto de las diferentes 
envolventes de volumen: 

10 env 1,100,1,10 
10 env 1,100,2,10 
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10 env 1,100,4,10 

10 env 1,50,20,20 

10 env 1,50,2,20 

10 env 1,50,15,30 

Finalmente, pruebe la siguiente: 
10 env 1,50,2,10 

Observe que el volumen permanece constante durante la segunda mitad de la nota. Esto ocurre 
por que el numero de escalones es 50 y la duracion de cada uno de ellos es 0. 1 s, con lo que la 
duracion total de la envolvente es de solamente 5 segundos, mientras que en la instruccion 
SOUND se especifica una duracion de 10 segundos. 

Haga usted otras pruebas y trate de generar sonidos diferentes. 

Si quiere crear envolventes mas complejas, puede repetir los tres ultimos parametros de la 
instruccion ENV para definir otras 'secciones' de la envolvente (hasta un maximo de 4 
secciones). 

Definition de una envolvente de tono 

La instruccion que define envolventes de tono es ENT. En su version mas sencilla, esta 
instruccion Neva 4 parametros. Su forma es la siguiente: 

ENT <numero de envoi vente>, <numero de escalones>, <altura de cada escalon>, 
<duracion de cada escalon> 

Como siempre, estudiemos los parametros uno por uno. 

Numero de la envolvente 

Es el numero de referenda (entre y 1 5) por el que la invocaremos en la instruccion SOUND. 

Numero de escalones 

Este parametro especifica en cuantas etapas queremos que la nota evolucione antes de terminar. 
Por ejemplo, si la nota ha de durar 10 segundos, podemos dividirla en 10 etapas de I segundo 
cada una; en tal caso, el parametro 'numero de escalones' tendrfa el valor 10. 

El margen de este parametro es de a 239. 

Periodo de tono de cada escalon 

En cada etapa, el tono puede variar con respecto al de la anterior en un numero de unidades 
comprendido entre - 1 28 y + 1 27. Las variaciones negativas representan aumento del tono (tono 
mas agudo); las variaciones positivas reducen el tono (tono mas grave). El valor mfnimo del 
periodo de tono es 0. Tengalo en cuenta cuando programe envolventes de tono. En el capftulo 
'Para su referenda . . . ' se da la lista completa de los periodos de tono. 

Duracion de cada escalon 

Este parametro especifica la duracion de cada escalon en unidades de centesimas de segundo. El 
margen de valores es de a 255; esto significa que la duracion maxima de cada escalon es de 
2.56 segundos (el se considera como 256). 

Por consiguiente, el producto del parametro 'numero de escalones' por el parametro 'duracion 
de cada escalon' no deberfa ser mayor que el parametro 'duracion' especificado en la instruccion 
SOUND. De lo contrario, el sonido terminara antes de que se hayan completado todos los 
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escalones de la envolvente. (En ese caso el ordenador ignora el resto del contenido de la 
envolvente.) 

Analogamente, si la duracion especificada en SOUND es mayor que la impuesta por el producto 
de 'numero de escalones' por 'duracion de cada escalon', la nota continuara sonando aunque se 
hayan terminado los escalones de la envolvente de tono, y lo hara con el tono correspondiente 
al de la ultima etapa de la envolvente. 

Para practicar con las envolventes de tono, pruebe el siguiente programa: 

10 ent 1,100,2,2 

20 sound 1,142,200, 15, ,1 

run 

La Ifnea 20 especifica un sonido con numero de tono igual a 142 (LA internacional), duracion de 
2 segundos, volumen inicial igual a 1 5 (el maximo), sin envolvente de volumen (parametro en 
bianco ,) y con envolvente de tono numero I . 

En la Ifnea 10 se define la envolvente de tono, la cual consiste en 100 escalones de altura 2 
(reduccion del tono) y duracion 0.02 segundos (2 x 0.0 1 ). 

Pruebe las siguientes formas de la Ifnea 10 y trate de escuchar el efecto de las diferentes 
envolventes de tono: 

10 ent 1,100,-2,2 
10 ent 1,10,4,20 
10 ent 1,10,-4,20 

Cambie ahora la instruccion sound y la envolvente de tono escribiendo: 

10 ent 1,2,17,70 

20 sound 1,71,140,15, ,1 

30 goto 10 

run 

Pulse [ESC] dos veces para detener el programa. 

Se puede combinar las instrucciones ENV, ENT y SOUND para crear sonidos mas complejos. 
Empiece con el siguiente programa: 

10 env 1,100,1,3 

20 ent 1,100,5,3 

30 sound 1,142,300,1,1,1 

run 

Cambie la Ifnea 20 por la siguiente: 

20 ent 1,100,-2,3 
run 

Y finalmente pruebe el siguiente programa: 

10 env 1,100,2,2 

20 ent 1,100,-2,2 

30 sound 1,142,200,1,1,1 

run 

Si quiere crear envolventes mas complejas, puede repetir los tres ultimos parametros de la 
instruccion ENT para definir otras 'secciones' de la envolvente (hasta un maximo de 4 
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secciones). 

Haga usted mismo otras pruebas. Por ejemplo, incluya ruido en la instruccion SOUND y anada 
mas secciones a las envolventes de volumen y de tono. 

En el capftulo 'Lista completa de las palabras clave del BASIC de AMSTRAD' explicaremos con 
todo detalle las diversas instrucciones de sonido. Si le interesan los aspectos mas melodicos del 
sonido, consulte la seccion 'El sonido de la musica' del capftulo titulado 'Cuando usted guste . . . 
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Parte 10: Introduction a los sistemas operativos AMSDOS y CP/M 

iQue es AMSDOS? 

Cuando se enciende o reinicializa el ordenador, este queda sometido al control de AMSDOS. 
Estas letras son abreviaturas de 'AMStrad Disc Operating System' (sistema operativo de disco 
AMSTRAD). AMSDOS dispone de las siguientes funciones e instrucciones de manejo de 
ficheros: 

LOAD "nombrefi" 

RUN "nombrefi" 

SAVE "nombrefi" 

CHAIN "nombrefi" 

MERGE "nombrefi" 

CHAIN MERGE "nombrefi" 

OPEN IN "nombrefi" 

OPENOUT "nombrefi" 

CLOSEIN 

CLOSEOUT 

CAT 

EOF 

INPUT #9 

LINE INPUT #9 

LIST #9 

PRINT #9 

WRITE #9 

asf como de diversas ordenes para el manejo de discos. 

Estas ordenes son las llamas ordenes externas, que se escriben precedidas del sfmbolo (tecla @ 
con [MAYS]). 

Las ordenes externas mas utilizadas son las siguientes: 

|a 

jb 

j tape (que se puede subdividir en |tape.in y |tape.out) 

|disc (que se puede subdividir en |disc.in y |disc.out) 

Las ordenes | a y | b solo se utilizan cuando se tiene conectada la segunda unidad de disco; 
indican a la maquina con que unidad debe realizar las ordenes que se le den en lo sucesivo. 



Por ejemplo, las ordenes 

|a 

load "nombrefi" 

piden al ordenador que cargue el programa especificado leyendolo del disco que esta insertado 
en la unidad A. 

Si no se especifica | a ni | b, el ordenador opera con la unidad implfcita, que es la A. 

Si solo se esta utilizando la unidad integrada en el ordenador, este la considera como unidad A, y 
no es necesario especificar | a ni | b. De hecho, si en esa situacion se le da al ordenador la orden 
| b, este responde con el mensaje: 
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Drive B: disc missing 
Retry, Ignore or Cancel? 

(Unidad B: falta el disco / Reintentar, Ignorar o Cancelar? ) 
y usted debe responder con C (de cancelar). 

IComo se utiliza la cinta? 

La orden tape indica al ordenador que en lo sucesivo debe realizar todas las funciones de manejo 
de ficheros (load, save, etc.) con el magnetofono de cassette externo en lugar de con el disco. Si 
no se especifica |tape, el ordenador trabaja con el medio de archivo de datos implicito, que es el 
disco. 

Para volver a trabajar con el disco despues de especificar tape, escriba la orden: | disc 

Tambien puede ocurrir que se desee, por ejemplo, leer de la cinta y grabar en disco. Para ello 
sirve la orden. 

| tape. in 

que indica al ordenador que en lo sucesivo debe realizar las operaciones de lectura con la cinta, 
pero seguir realizando las de escritura con el disco. 

Analogamente, para leer datos del disco y grabarlos en cinta, primero se da la orden | disc. in, 
para cancelar la anterior | tape. in, y luego |tape.out, para dirigir la salida de datos hacia la 
cinta. 

Asf pues, |tape.in y | tape. out son opuestas a | disc. in y | disc.out, respectivamente, y viceversa. 

En los capftulos titulados 'Discos y cintas' y 'AMSDOS y CP/M' se puede encontrar mas amplia 
informacion sobre todas las posibilidades de transferencia de datos entre ordenador, disco y 
cinta. 

Copia de programas entre discos y cinta 

En la parte 7 de este 'Curso de introduccion' el lector ha aprendido a inicializar discos nuevos 
sirviendose del programa DISCKIT3 (cara I del juego de discos maestros de CP/M), y tambien a 
copiar programas de un disco a otro. A la vista de la descripcion que acabamos de hacer de las 
ordenes 

| tape |disc | tape. i n |tape.out |disc.in |disc.out |a |b 

deberfa ser capaz de cargar y grabar programas de disco o de cinta, utilizando la unidad A o la B. 
Otras ordenes externas son las siguientes: 

|dir | drive |era | ren |user 

Las explicaremos en el capftulo titulado AMSDOS y CP/M'. 

Copia de discos con CP/M 

El contenido completo de un disco se puede copiar a otro utilizando el programa DISCKIT3 
(cara I del juego de discos maestros de CP/M). 

Puede utilizar el metodo que vamos a describir para copiar los propios discos maestros. 

Inserte el primer disco maestro de CP/M en la unidad, con la cara I hacia arriba, y escriba 
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I cpm 

Cuando aparezca el mensaje A>, escriba 

disckit3 

Al cabo de unos instantes vera aparecer en la pantalla el mensaje de presentacion de DISCKIT3, 
seguido de 

One drive found 

Esto confirma que estamos ejecutando el programa de ayuda DISCKIT3 y que el ordenador ha 
detectado una unidad de disco (la incorporada en la maquina). 

En cambio, si esta conectada la segunda unidad de disco, el mensaje sera: 

Two drives found 

En la parte inferior de la pantalla se puede ver el siguiente menu: 




(Copiar / Inicializar / Verificar / Fin del programa) 

Es el menu principal del programa DISCKIT3. Los numeros recuadrados hacen referenda a las 
teclas de funcion del teclado numerico (marcadas con fO, f I , f4 y f7). Pulsando una de estas 
teclas se elige la opcion deseada. 

Observe que la opcion de este menu hace que se abandone el programa DISCKIT3 y se vuelva 
al modo directo de consola de CP/M (inductor A>). 

Como lo que queremos hacer ahora es copiar un disco, pulse la tecla de funcion numero 7 (f7). 



PRECAUCION 

AL COPIAR SOBRE UN DISCO SE BORRA SU CONTENIDO ANTERIOR 



Manual de Amstrad CPC 6 1 28 (revision 2008) - Pagina 86 



Copia en un sistema de una sola unidad de disco 

Suponiendo que su sistema sea de una sola unidad de disco (es decir, que no tenga conectada la 
segunda unidad), el mensaje que aparecera en la pantalla es: 

[7] Copy 

Any other key to exit, nenu 

(Copiar / Cualquier otra tecla para volver al menu) 

En este momento debe extraer el disco de CP/M e insertar el disco que va a copiar (el disco 
fuente). Si va a copiar el disco de sistema de CP/M, dejelo en la unidad de disco. 

Cuando haya insertado el disco fuente, pulse la tecla Y (de yes, "sf"), lo que equivale a decir: "de 
acuerdo, copia el disco". 

El ordenador comprueba cual es el formato del disco fuente y exhibe el mensaje adecuado en la 
primera Ifnea de la pantalla. 

Al cabo de unos segundos aparece el mensaje 

Insert disc to WRITE 
Press any key to continue 

(Insertar disco para ESCRIBIR. / Pulsar cualquier tecla para continuar) 

En este momento debe extraer de la unidad el disco fuente, insertar el disco sobre el que quiere 
copiar (disco de destino) y pulsar una tecla. 

En la pantalla aparece informacion sobre el formato que va a tener el disco destino (aun cuando 
sea un disco nuevo no inicializado). 

Si el disco destino no esta inicializado, o no lo esta correctamente, aparecera el mensaje 

Disc isn't formatted (or faulty) 

Going to format while copying 

Disc will be system format 
(El disco no esta inicializado (o es defectuoso) / Voy a inicializar al copiar / El disco tendra 
formato de sistema) 

o alguno similar, dependiendo del formato del disco fuente. 

Cuando el ordenador este otra vez dispuesto a seguir leyendo el disco fuente, emitira el mensaje 

Insert disc to READ 
Press any key to continue 
(Insertar disco para LEER / Pulsar cualquier tecla para continuar) 

y usted debe insertar nuevamente el disco destino. 

El proceso se repite las veces necesarias hasta que la copia esta terminada; entonces aparece el 
mensaje: 

Copy completed 
Remove disc 

Press any key to continue 
(Copia terminada / Extraer el disco / Pulsar cualquier tecla para continuar) 
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Siga entonces las instrucciones que vea en la pantalla: pulse Y para copiar otro disco, o cualquier 
otra tecla para volver al menu. 

Protection contra escritura 

El sistema no permite copiar sobre un disco que tenga abierto el orificio de proteccion contra 
escritura. Si lo intenta, el ordenador emite el mensaje: 

Disc write-protected 

Insert disc to WRITE 

R-etry or C-ancel 
(El disco esta protegido contra escritura / Insertar disco para ESCRIBIR / R-eintentar o C- 
ancelar) 

Lo que se debe hacer entonces es pulsar C para cancelar la operacion, extraer el disco e insertar 
el disco sobre el que sf se quiere copiar, con el orificio de proteccion obturado. 

Es muy importante no cerrar los orificios de proteccion de los discos que contengan programas 
valiosos. NO CERRAR NUNCA los orificios de proteccion de los discos maestros de CP/M. 

Copia en un sistema de dos unidades de disco 

Siga las instrucciones de la seccion anterior para cargar el programa DISCKIT3 (cara I del juego 
de discos de CP/M); elija la opcion copy pulsando la tecla f7 en el menu. 

El programa ofrece un nuevo menu: 



Read from A : 




8 




Read from B : 




5 




Exit menu 




2 









(Leer en A: / Leer en B: / Vuelta al menu) 

Al copiar en un sistema de dos unidades de disco ya no es necesario intercambiar repetidamente 
el disco fuente y el disco destine Pulse la tecla F8 para copiar desde la unidad A. 



El programa ofrece un tercer menu: 



3 
~3 



Wr i te -to A : 
Write to B: 
Exit menu 



(Escribir en A: / Escribir en B: / Vuelta al menu) 

Este menu permite elegir la unidad en la que se desea poner el disco destine Se puede elegir la 
misma que para el disco fuente, pero entonces no se aprovecha la ventaja que representa 
disponer de la segunda unidad de disco, y habra que intercambiar los discos fuente y destino 
varias veces durante el proceso de copia. 

Lo mas conveniente es, pues, pulsar f6 para copiar hacia la unidad B. 

Introduzca los dos discos en las unidades correspondientes y pulse Y para poner en marcha el 
proceso de copia. 

El ordenador emite informacion acerca del formato de los dos discos. Si el disco destino no esta 
inicializado, o no lo esta correctamente, el ordenador lo inicializara al mismo tiempo que realiza 
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la copia. 

Una vez concluido el proceso, se emite el siguiente mensaje: 

Copy completed 
Remove both discs 
Press any key to continue 
(Copia terminada / Extraer los dos discos / Pulsar cualquier tecla para continuar) 

Extraiga entonces los dos discos antes de proseguir. A continuacion puede optar por copiar otro 
disco (pulsando Y) o por volver al menu de DISCKIT3 (pulsando cualquier otra tecla). 

Verification de discos 

El programa DISCKIT3 tambien ofrece la opcion de verificar (comprobar) discos. 

Esta opcion exhibe en la pantalla informacion acerca del formato del disco; lee todos los ficheros 
del disco e informa sobre los errores que encuentra. 

El proceso completo de verificacion de un disco es el siguiente: inserte la cara I de los discos de 
CP/M y escriba 

|cpm 

Cuando aparezcael inductor A> escriba 

disckit3 

Seleccione la opcion verify del menu principal de DISCKIT3 pulsando la tecla f I y luego siga las 
instrucciones que vayan apareciendo en la pantalla. 

Si tiene conectada la segunda unidad de disco, el programa le ofrece la opcion de elegir que 
unidad de disco quiere utilizar para la verificacion. 

Una vez instalado el disco a verificar, pulse Y para iniciar el proceso. 

Cuando la verificacion termina, se emite el siguiente mensaje: 

Verify completed 
Remove disc 

Press any key to continua 
(Verificacion terminada / Extraer el disco / Pulsar cualquier tecla para continuar) 

Si tiene conectada la segunda unidad de disco, el programa exige que extraiga los dos discos 
antes de permitirle continuar. Entonces puede optar por verificar otro disco (pulsando Y) o por 
volver al menu de DISCKIT3 (pulsando cualquier otra tecla). 

Utilization del programa DISCKTT en CP/M 2.2 

Si desea inicializar, copiar o verificar discos creados con o para el CPC664 o el sistema 
CPC464 + DDYI (los cuales solo disponen de CP/M 2.2), puede utilizar la version del programa 
DISCKIT que esta grabada en la cara 4 del juego de discos de CP/M. El programa se llama 
DISCKIT2 y funciona de la misma manera que el DISCKIT3 que acabamos de describir. 

Para ejecutar DISCKIT2, inserte el segundo disco de CP/M, con la cara 4 hacia arriba, en la 
unidad de disco incorporada al ordenador y escriba 

|cpm 
Cuando aparezcan el mensaje de presentacion de CP/M 2.2 y el inductor A>, escriba 
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disckit2 

Elija las opciones requeridas y siga las instrucciones que aparezcan en la pantalla igual que si se 
tratase de DISCKIT3. 

Observacion. Al copiar, el programa DISCKIT2 utiliza la memoria de la pantalla para almacenar 
datos temporalmente. Esto hace que en ella aparezcan imagenes aleatorias durante el proceso 
de copia. 

Information adicional 

En los capitulos 4 al 9 se describe la utilizacion de otros programas del juego de CP/M. 

Finalmente, antes de proseguir, asegurese de que ha tenido en cuenta las advertencias que 
hemos hecho al principio de este manual, en la seccion titulada 'IMPORTANTE': 

NOTAS DE INSTALACION 5, 6 y 7 (pag. 4) 

NOTAS DE OPERACION 1 , 2, 3, 4, 5, 6, 7 y 9 (pags. 4 y 5) 
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Parte 11: Introduction al gestor de bancos de memoria 

El segundo bloque de 64K de memoria 

El CPC6 1 28 esta dotado de 1 28K de RAM (random access memory, memoria de acceso 
aleatorio) divididos en dos bloques de 64K cada uno. CP/M Plus utiliza todos los 1 28K, pero en 
cambio BASIC normalmente no se sirve mas que de los 64K primeros. Sena una pena no 
aprovechar los otros 64K en los programas de BASIC, asf que hemos incluido un programa que 
proporciona ordenes gracias a las cuales se puede utilizar esa memoria con dos usos especfficos: 
como almacen de imagenes de pantalla o como espacio para almacenar cadenas de caracteres. 

El programa se llama 'gestor de bancos' ('banco' es un termino tecnico que significa 'bloque de 
memoria'). 

Control de imageries de pantalla con el gestor de bancos 

El ordenador 6 1 28 visualiza y mantiene constantemente actualizada una imagen de pantalla. Para 
ello necesita 1 6K de memoria en la que almacenar informacion acerca del color y el brillo de 
todos los pixels (puntos) de la pantalla. En la memoria del 6 1 28 hay espacio suficiente para 
almacenar informacion sobre seis imagenes de pantalla simultaneamente (1 6K para cada una). El 
gestor de bancos proporciona las ordenes necesaria para manipular y visualizar desde BASIC 
cinco de las pantallas posibles. 

Cuando se conecta el ordenador, la imagen que se observa en la pantalla esta formada con los 
datos almacenados en el primer bloque de 1 6K (que denominaremos 'bloque I '), dentro del 
primer banco de 64K. Las otras cuatro pantallas estan en el segundo banco de 64K y les 
llamaremos bloque 2, bloque 3, bloque 4 y bloque 5. 

En realidad, el unico bloque cuya informacion se consulta para formar la imagen es el bloque I . 
Para visualizar los bloques del segundo banco (bloques 2, 3, 4 y 5) hay que transferirlos al bloque 
I . El gestor de bancos proporciona las ordenes necesarias para realizar esas transferencias: | 
SCREENCOPY copia el contenido de un bloque en otro, borrando la informacion previamente 
grabada en el bloque destino; | SCREENSWAP intercambia el contenido de dos bloques. 

Las ordenes del gestor de bancos son ordenes externas, similares a las de AMSDOS ya descritas 
en este capitulo, y van precedidas, por consiguiente, por el sfmbolo | (tecla @ con [MAYS] ). 

Utilization del gestor de bancos 

Reinicialice el ordenador con [CONTROL] [MAYS] [ESC]. Inserte en la unidad de disco la cara I 
del juego de discos del sistema y escriba 

RUN "BANKMAN" 

El procedimiento de carga se explica en el capftulo 7, partes 13 y 14, en las que se habla de las 
RSX (Resident System extensions, ampliaciones del sistema residentes). Conviene tener cierta 
idea de como funcionan estas rutinas y de como reservarles espacio en la memoria antes de 
utilizarlas en los programas. No obstante, para probar los siguientes ejemplos no es necesario 
conocer el procedimiento de carga. 



Escriba: 



MODE 1 

PRINT "ESTA ES LA PANTALLA IMPLICITA" 
I SCREENSWAP, 1, 2 
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El texto debe haber desaparecido como consecuencia de la ultima orden (screenswap significa 
"intercambio de pantalla"). Lo que ahora hay en la pantalla es la informacion que antes estaba 
almacenada como 'pantalla 2' (en el bloque 2). Si la maquina estaba recien encendida, sera 
seguramente una imagen aleatoria. Para borrarla escriba: 

MODE 1 

y a continuacion: 

PRINT "ESTA ES LA PANTALLA 2" 
| SCREENSWAP, 1, 2 

Ha vuelto a aparecer el texto original. Al repetir la orden | SCREENSWAP, 1 ,2 hemos vuelto a 
intercambiar las dos pantallas. Con la orden | SCREENSWAP se puede intercambiar cualquier 
pantalla de las cinco disponibles con cualquier otra; pero el efecto solo sera visible si una de las 
pantallas implicadas es la numero I . 

La otra orden es SCREENCOPY ("copia de pantallas"). Con ella se copia una pantalla sobre otra 
y se borra la que originalmente habfa en el bloque destine 

Escriba: 

MODE 1 

PRINT "VAMOS A COPIAR ESTA PANTALLA" 
|SCREENC0PY,2,1 

La pantalla fuente, la I , se ha copiado en la pantalla destino, la 2. Si ahora invertimos el orden de 
los parametros, 

MODE 1 

|SCREENC0PY,1,2 

el contenido de la pantalla actualmente visible (es decir, la I) es sustituido por el de la pantalla 2. 

Asf pues, el primer parametro representa la pantalla destino; el segundo, la pantalla fuente. 

Al copiar pantallas se producen imagenes distorsionadas si los modos de pantalla son diferentes 
o si la pantalla visible ha sido desplazada hacia arriba despues de la ultima ejecucion de una orden 
MODE. Las ordenes de control de pantallas del gestor de bancos estan pensadas para su 
utilizacion en pantallas graficas mas bien que en pantallas de texto, y en aquellas el 
desplazamiento de la pantalla es mas improbable. 

Utilizacion del gestor de bancos en el almacenamiento de cadenas literates 

El programa gestor de bancos proporciona otras cuatro ordenes externas mediante las cuales se 
puede convertir el segundo banco de memoria (64K) en un archivo de cadenas literales. 

Casi todos los programas se pueden dividir en dos partes: las instrucciones del programa y los 
datos con los que opera. Un buen ejemplo seria un programa de base de datos, tal como una 
lista de nombres y direcciones. Un programa asf utilizarfa vectores literales para almacenar los 
nombres y las sehas. 

Las cadenas literales se pueden almacenar en el segundo banco de 64K de memoria, una tras 
otra. El espacio dedicado a almacenar las cadenas se puede dividir en una serie de 
compartimentos que denominaremos registros. Los registros son de longitud fija, entre 2 y 255 
caracteres cada uno, mientras que la longitud de las cadenas literales de BASIC no es fija, sino 
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que depende de los caracteres que las integren. El metodo de almacenamiento mediante 
registros proporciona compartimentos de tamano uniforme: una especie de casillero en el que 
se guarda la informacion de forma bien organizada. Cada operacion de escritura o lectura de 
datos de un registro va acompanada de un avance automatico al registro siguiente, el cual queda 
dispuesto para la siguiente operacion. El registro con el que se va a realizar la siguiente 
operacion es el 'registro actual', y es el que las ordenes del gestor de bancos utilizaran si no se 
especifica otro diferente. 

A este sistema de gestion de la memoria le hemos dado el nombre de 'RAMdisc' o 'disco virtual' 
porque funciona de forma muy parecida a como lo hacen los sistemas de fichero de acceso 
aleatorio en disco, con la unica diferencia de que el soporte fisico es la RAM en lugar de un disco. 

Lea las siguientes descripciones de las diversas ordenes; si no aprende a utilizarlas 
inmediatamente, al menos apreciara para que sirven. Despues practique con los ejemplos. 

La primera orden de RAMdisc es | BANKOPEN. Esta orden especifica el numero de caracteres 
que va a tener cada registro. La sintaxis es: 

| BANKOPEN, n 

donde n es un numero que especifica la longitud de los registros. El numero n puede tener 
cualquier valor del margen de a 255, pero los valores y I producen efectos incontrolados. 

| BANKWRITE almacena una cadena literal en el 'registro actual'. Al terminar la ejecucion de la 
orden, el 'puntero de registro' pasa a apuntar al registro siguiente a aquel en el que se ha escrito 
y lo convierte en el nuevo 'registro actual'. La sintaxis es: 

| BANKWRITE, @r%,a$ 

o bien 

| BANKWRITE, @r%,a$,n 

donde r% es una variable entera que contiene, al terminar la orden, cierta informacion acerca 
de la operacion que se acaba de realizar. a$ es una variable literal que contiene los caracteres 
que se han de almacenar en el registro. En el primero de estos dos ejemplos se escribe en el 
registro actual; en el segundo ejemplo el parametro opcional n especifica el numero de registro 
en el que se debe escribir. 

| BANKREAD examina un registro y asigna su contenido a una cadena literal; al terminar la 
lectura, incrementa el puntero de registros y convierte en registro actual el siguiente a aquel en 
que se realizo la operacion. El contenido de los registros no resulta modificado por las 
operaciones de lectura. La sintaxis de BANKREAD es la siguiente: 

| BANKREAD, G>r%,a$ 

o bien : 

| BANKREAD, @r%,a$,n 

donde r% es una variable entera que contiene, al terminar la orden, cierta informacion acerca 
de la operacion que se acaba de realizar. a$ es una variable literal a la que se asigna los 
caracteres leidos en la operacion. En el primero de estos dos ejemplos se lee el registro actual; 
en el segundo ejemplo el parametro opcional n especifica el numero de registro que se debe 
leer. 

La ultima orden de este grupo es |BANKFIND. Esta orden examina los registros en busca de 
una cadena literal especificada. Si la encuentra, entrega el numero de registro en el que la ha 
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encontrado. La sintaxis de | BANKFIND es: 

|BANKFIND,@r%,a$ 

o bien 

| BANKFIND, @r%,a$,n 

o bien 

|BANKFIND,@r%,a$,n,m 

donde r% es una variable entera que contiene, al terminar la orden, o bien el numero de 
registro en el que se ha encontrado la cadena, o bien un codigo que indica que la cadena no ha 
sido encontrada. a$ es la cadena que se busca. El parametro opcional n especifica el numero de 
registro a partir del cual se debe empezar a buscar. Si no se especifica n, la busqueda comienza a 
partir del registro actual. El segundo parametro opcional, m, especifica el numero de registro en 
el que se debe abandonar la busqueda. Si se omite m, la busqueda continua hasta el final de los 
64K de memoria, con lo que se puede sobrepasar el final de los datos escritos por el programa. 

Pruebe ahora los siguientes ejemplos. Si ya ha ejecutado el programa para estudiar las ordenes 
de manipulacion de pantallas y no ha reinicializado la maquina desde entonces, las ordenes de 
RAMdisc seguiran en la memoria. De lo contrario, inserte la unidad de discos la cara I del juego 
de discos del sistema y escriba lo siguiente: 

RUN "BANKMAN" 

Ahora escriba: 

|BANK0PEN, 20 

Esta orden especifica que los registros van a ser de 20 caracteres cada uno y selecciona como 
registro actual el numero 0. 

Escriba: 

a$="PRIMER REGISTRO" +SPACE$ (5) 

con lo que se forma la cadena a$ con longitud de 20 caracteres. 
Escriba ahora: 

r%=0 

para inicializar r%. Escriba: 

|BANKWRITE,(?r%,a$ 

Esta orden escribe a$ en el primer registro (el numero 0). A continuacion escriba: 

d$=SPACE$(20) 
|BANKREAD,(?r%,d$,0 
PRINT d$ 

La primera orden iguala d$ a una cadena de 20 espacios, longitud suficiente para poder asignarle 
el contenido del registro en la operacion de lectura. La segunda orden lee el registro numero y 
asigna su contenido a la variable literal d$. Antes de la lectura el registro actual era el numero I 
(actualizado por la anterior | BANKWRITE); por eso hemos tenido que especificar que la lectura 
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debfa realizarse en el registro numero 0. De no haberlo hecho asf, se habrfa leido el registro 
actual. La ultima orden de este ejemplo escribe en la pantalla el resultado de la lectura; si todo 
ha ido bien, d$ deberfa ser igual a la cadena 'PRIMER REGISTRO' seguida de 5 espacios. 

Escriba lo siguiente: 

b$="D0S"+SPACE$(17) 
c$="TRES"+SPACE$(16) 
|BANKWRITE,@r%,b$,l 
j BANKWRITE, @r%,c$ 

Estas ordenes escriben b$ y c$ en los registros I y 2. En la primera orden BANKWRITE hemos 
incluido el parametro opcional, con lo que b$ ha quedado almacenada en el registro I . Esta 
misma orden ha incrementado el puntero de registro; al ejecutarse la segunda orden 
BANKWRITE, el puntero apunta al registro 2, y es en el donde se almacena c$. 

Escriba: 

PRINT r% 

El resultado deberfa ser 2. Este numero se puede considerar como el numero del ultimo registro 
sobre el que se ha operado, o bien como el numero del registro actual menos uno. En este 
ejemplo, el ultimo registro utilizado es el 2; el registro actual (o sea, el registro sobre el que 
actuara la proxima orden de RAMdisc si no se especifica otra cosa) es el 3. 

Esta variable, r%, proporciona siempre informacion acerca de como se ha desarrollado la ultima 
operacion. Si la operacion ha concluido con exito, la variable toma un valor positivo que 
representa un numero de registro. En caso contrario, el valor es negativo e indica un codigo de 
error. BANKWRITE y BANKREAD pueden generar los dos codigos de error siguientes: 

• - 1 Indica que se ha alcanzado el final del fichero. Esto ocurre cuando ya se han utilizado 
todos los registros o cuando se especifica un numero de registro que no existe. 

• -2 Indica un fallo en la conmutacion de bancos. No deberfa ocurrir nunca. 



Pruebe los siguientes ejemplos: 

d$=STRING$(20,"X") 

|BANK0PEN,20 

FOR n=l TO 3: | BANKWRITE, @r%,d$:NEXT 

La primera orden asigna a la variable literal d$ una cadena formada por 20 letras 'X'. j 
BANKOPEN reinicializa el puntero de registros a 0, de modo que | BANKWRITE escribe la 
cadena d$ en los registros 0, I y 2, borrando su contenido anterior. 

Ahora escriba: 

a$="PRIMER0" 

| BANKWRITE, G>r%,a$,0 

Estas ordenes escriben la palabra 'PRIMERO' en el registro 0, superponiendola a algunas de las 
'X' que habia antes en el. Vuelva a igualar d$ a una cadena de espacios con 

d$=SPACE$(20) 

y escriba 

| BANKREAD, (?r%,d$,0 
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Esta orden lee el registro y asigna su contenido a d$. 



Repasemos todo lo que hemos hecho hasta ahora. Hemos escrito en los tres primeros registros 
sendas cadenas formadas por 20 letras 'X' cada una. Hemos cambiado las letras 'X' del registro 
por la palabra 'PRIMERO'. Finalmente, hemos vuelto a definir d$ como una cadena de 20 
espacios. Si ahora escribimos 

PRINT d$ 

el resultado debe ser 'PRIMEROXXXXXXXXXXXXX. Este ejemplo ilustra una consideracion 
importante que se debe tener presente al utilizar estas ordenes. Si la cadena que se escribe en 
un registro no lo llena completamente, los caracteres antiguos sobre los que no se ha escrito 
seguiran estando en el registro. Esto puede ser ventajoso en ocasiones, pero en general sera 
conveniente escribir una cadena de espacios (o sea, de caracteres ASCII 32) en el registro antes 
de actualizar la informacion en el almacenada. Lo mismo se puede decir acerca de la cadena a la 
que se va a asignar los caracteres leidos en un registro: si la longitud de la cadena es mayor que 
la longitud del registro, al final de ella quedaran caracteres que no habran resultado de la 
operacion de lectura. Esta es la razon por la que hemos borrado (o igualado a una cadena de 
espacios) la cadena d$ antes de asignar el contenido del registro 0. 

Es posible escribir una cadena en un registro que sea demasiado corto para recibir la cadena 
completa. En tal caso se ignoran los caracteres de la cadena (los ultimos por la derecha) que no 
quepan en el registro. 

Analogamente, si se lee un registro y se asigna su contenido a una cadena demasiado corta, los 
caracteres que no quepan en ella seran ignorados. En las operaciones normales con cadenas, 
BASIC ampliaria automaticamente la cadena para aceptar todos los caracteres, pero esto no es 
asf cuando se utilizan ordenes externas. 

Finalmente, vamos a describir la orden | BANKFIND Esta orden sirve para examinar los 
registros en busca de una sucesion de caracteres especificada. Por ejemplo, si el registro numero 
24 empieza con la palabra 'DANIEL', la orden 

| BANKFIND 5 (?r% 5 "DANIEL" 

la encontrara. Esta funcion es extremadamente util en los programas de bases de datos, en los 
cuales se puede necesitar, por ejemplo, buscar un nombre a lo largo del fichero. 

| BANKFIND inicia la busqueda a partir del registro actual y la continua hasta que encuentra la 
cadena o hasta el final de los 64K de memoria, si no se especifica otra cosa. Se puede incluir un 
parametro para especificar el numero de registro a partir del cual se debe buscar. Despues de 
este se puede incluir otro parametro para especificar en que numero de registro se debe 
interrumpir la busqueda. 

| BANKFIND tambien puede buscar una cadena que no este al principio de registro. Para ello, al 
principio de la cadena buscada se incluyen tantos caracteres chr$(0) como posiciones haya en el 
registro antes de los buscados. Los caracteres chr$(0) actuan como 'sfmbolos comodfn' (como 
los ? en los nombres de ficheros de CP/M), con el significado de 'cualquier caracter'. Por 
ejemplo, 

a$=STRING$(10,0)+"DANIEL" 
|BANKFIND,(ar%,a$,0 

busca el primer registro en el que figure la palabra 'DANIEL' en las posiciones I I a a 1 6 a . Los diez 
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primeros caracteres del registro podrian contener un numero de telefono o cualquier otra 
informacion que BANKFIND ignorarfa. 

Al concluir la operacion, la variable r% contiene el numero del registro en el que se ha 
encontrado la cadena, o bien el codigo -3 si no se ha encontrado. 

Informacion adicional 

En el capftulo 8 se puede encontrar mas informacion sobre el gestor de bancos; estudie tambien 
las partes 1 3 y 14 del capftulo 7, en las que se describen las RSX. 

Finalmente, antes de proseguir, asegurese de que ha tenido en cuenta las advertencias que 
hemos hecho al principio de este manual, en la seccion titulada 'IMPORTANTE': 

NOTAS DE OPERACION 1 , 2, 3 y 9 (pags. 4 y 5). 



Aquf termina este 'Curso de introduccion' al CPC6 1 28. Es de esperar que usted haya aprendido 
para que sirve la mayor parte de las teclas, como utilizar las instrucciones mas sencillas de 
BASIC, como preparar un disco virgen, como realizar las funciones mas elementales de manejo 
de discos, tales como LOAD, SAVE y CAT, y como utilizar unas cuantas ordenes de AMSDOS, 
CP/M y el gestor de bancos. 

En el resto del manual abordaremos cuestiones mas avanzadas. Estudiaremos el BASIC de 
AMSTRAD, el funcionamiento de la unidad de disco, con secciones dedicadas a AMSDOS y CP/ 
M, y daremos una introduccion a un nuevo lenguaje: el DR. LOGO de Digital Research. 

iBuena suerte y que disfrute! 
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Capitulo 2 - La genesis de un programa 



Pues bien. Usted ya ha lefdo el 'Curso de introduccion' y tiene ante sf el ordenador encendido. 
Ya sabe como hacer que el ordenador repita una tarea varias veces con la instruccion FOR... 
NEXT y como hacerle realizar operaciones de forma condicional con la instruccion IF THEN . 

Pero pronto empezara a cansarse de ver su nombre repetido hasta la saciedad en la pantalla y 
querra aprender algo de informatica mas seria, algo util o divertido. En el capftulo siguiente 
damos la lista de todas las palabras clave del BASIC de AMSTRAD, junto con su sintaxis, es decir, 
la forma de utilizarlas. Con estas herramientas en la mano, el unico Ifmite a lo que puede 
obtener del ordenador lo fijara su imaginacion. 

Si no ha utilizado antes ningun otro ordenador, es probable que la palabra 'programacion' le 
suene amenazadora. iNo le tenga miedo! Programar es mas facil de lo que usted cree, y desde 
luego mucho mas facil de lo que la jerga tecnica da a entender. 

No se deje asustar por BASIC y vera que pronto empieza a disfrutar de la programacion y de los 
frutos de su esfuerzo. Programar puede llegar a ser un ejercicio muy gratificante, en particular 
para el principiante que se pone a experimentar con la maquina y el lenguaje. Recuerde siempre 
que, a excepcion del riesgo de borrar accidentalmente los discos de CP/M, nada que usted haga 
en el teclado puede dahar el ordenador; siempre vale la pena intentar algo nuevo. 

IPor donde empezamos? 

En programacion, como en muchas otras actividades, lo mas diffcil es empezar. Sin embargo, lo 
peor que puede hacer es lanzarse directamente al teclado sin antes pensar para que. 

El primer paso en el desarrollo de un programa debe ser establecer claramente que se pretende 
que el programa haga y como se quiere que presente los resultados en la pantalla. 

Decidido esto, se puede empezar a escribir un programa que realice las funciones deseadas, 
preocupandose siempre de que el programa discurra suavemente de principio a fin, con el 
mfnimo numero de saltos posible. Un buen programa debe ser facil de leer una vez listado, no 
un Ifo indescifrable que haga imposible la deteccion de errores o la depuracion del programa. 

Afortunadamente, BASIC es un lenguaje muy tolerante que facilita la depuracion de los 
programas emitiendo mensajes que indican donde esta el error y en que consiste. Ademas, hace 
posible la ampliacion de los programas, pues permite intercalar Ifneas nuevas entre las ya 
existentes. 

Un programa sencillo 

Manos a la obra. Vamos a escribir un programa que controle y mantenga un fichero con los 
nombres y numeros de telefono de nuestros amigos. Le llamaremos 'guia de telefonos'. Para 
respetar las reglas que hemos enunciado, 'ique debe hacer el programa?'; 'icomo debe presentar 
los resultados en la pantalla?' 

El programa debe permitirnos almacenar 100 nombres y numeros de telefono. Cuando 
queramos averiguar un numero de telefono, escribiremos el nombre y el ordenador nos dara el 
numero. Ademas, por si no recordamos como habfamos escrito algun nombre, el programa 
debe ser capaz de exhibir toda la informacion en la pantalla. Dicho sea de paso, esto ya nos hace 
empezar a pensar en la forma de presentacion de los resultados en la pantalla. 
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De acuerdo, vamos al teclado. Empezaremos por escribir el nombre del programa: 

10 REM guia de telefonos 

No es imprescindible dar nombre a todos los programas, pero comprobara cuando tenga 
grabados unos cuantos que es muy util poder averiguar de un golpe de vista cual es cual. 

Lo siguiente que necesitamos es poder captar por el teclado (con INPUT) una cadena de 
caracteres (quiza un nombre) para luego poder asignarlo a una variable. A la variable que 
represente el nombre le llamaremos NOMBRE$. Lo mismo se puede hacer con el numero de 
telefono; a la variable le llamaremos TELS. 

iRecuerda todavia los programas del 'Curso de Introduccion'? En algunos de ellos utilizabamos la 
instruccion INPUT para captar los valores de las variables. Escribamos: 

20 INPUT" Escriba el nombre ";N0MBRE$ 

30 INPUT" Escriba el numero de telefono ";TEL$ 

run 

En respuesta al programa podemos introducir un nombre (por ejemplo, Juan) y luego un 
numero de telefono (por ejemplo, 923 23371 7). 

El programa ha almacenado la informacion que le nemos suministrado, pero no ha escrito ningun 
resultado en la pantalla. Asi pues, en algun lugar del programa necesitaremos instrucciones del 
tipo 

PRINT N0MBRE$ ... y ... PRINT TEL$ 

con las que recuperemos los valores de las variables. 

Algo falla, tverdad? Dijimos que nuestro programa deberfa ser capaz de almacenar 1 00 nombres 
con sus numeros de telefono; si seguimos por este camino, necesitaremos 200 instrucciones 
INPUT para escribir la lista en la pantalla. No se inquiete; los ordenadores tienen un recurso que 
permite manejar con facilidad grandes cantidades de datos: se trata de las 'listas'. Una lista es una 
variable que puede representar, con un solo nombre (tal como NOMBRES), un grupo de datos 
(en nuestro caso necesitamos 100) que se identifican por un fndice. Cuando queramos referirnos 
a un dato concreto, lo citaremos por el nombre de la variable seguido del fndice entre 
parentesis; por ejemplo, NOMBRE$(27), donde 27 es el fndice y NOMBRE$ es lo que 
denominamos variable indexada. Si como fndice ponemos una variable numerica, NOMBRES(x), 
en lugar de un numero concreto, podemos manejar la lista completa de datos, del I al 100, 
variando el valor de x dentro de un bucle FOR ... NEXT (v. g., FOR x= I TO 100). A medida 
que se va incrementando el valor de x, el fndice de NOMBRE$ va sehalando los diferentes 
elementos de la lista. 

En nuestro programa necesitamos dos listas, NOMBRE$ y TEL$, cada una con capacidad para 
100 elementos. Pero tenemos que informar al ordenador de nuestras intencione, y para ello 
debemos dimensionar las listas con la instruccion DIM. Cambiemos las Ifneas 20 y 30: 

20 DIM NOMBRES (100) 
30 DIM TEL$(100) 

Ahora ya podemos escribir el tramo del programa que nos va a permitir introducir nombres y 
numeros de telefono. Ahada las siguientes Ifneas: 

40 FOR x=l TO 100 

50 INPUT;" Nombre ";N0MBRE$(x) 

60 INPUT;" Telefono ";TEL$(x) 
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70 NEXT 
run 



Pero no es probable que vayamos a introducir los 100 nombres de una vez, y ademas la forma 
de presentacion en la pantalla es muy desordenada. Tenemos que organizarnos mejor. En 
primer lugar, antes de captar un nombre, vamos a librarnos de todo el texto superfluo que 
tenemos en la pantalla: 

45 CLS 

iQue podemos hacer para decirle al ordenador que de momento ya no queremos introducir 
mas datos? Podemos detener el programa pulsando [ESC] dos veces, pero cuando volvamos a 
teclear run perderemos todos los datos introducidos anteriormente. 

Esta es la solucion. Cada vez que el programa capte un nuevo nombre, haremos que examine el 
dato introducido para ver si consta de al menos un caracter o si, por el contrario, es la 'cadena 
vacfa'. Si lo es, haremos que suspenda la captacion de datos. Ahada lo siguiente: 

55 IF N0MBRE$(x)="" THEN 80 

80 PRINT "Fin de la entrada de datos" 

Tambien necesitamos que el ordenador indique al usuario que debe hacer para suspender la 
introduccion de datos. Ahada, pues, la siguiente linea: 

47 PRINT"Pulse [RETURN] para terminar" 

Ahora vamos a escribir las instrucciones que exhiban en la pantalla la informacion almacenada. 
Primero la lista completa: 

90 FOR x-1 TO 100 

100 PRINT N0MBRE$(x);" ";TEL$(x) 
110 NEXT 

Otra vez nos ocurre que el programa no sabe donde pararse y continua hasta el centesimo 
elemento. Esto tiene facil arreglo: 

95 IF N0MBRE$(x)="" THEN 120 
120 PRINT "Fin de la lista" 

La Ifnea 95 comprueba si NOMBRES(x) es la cadena vacfa; si lo es, concluye la escritura de la 
lista saltando a la Ifnea 1 20. 

Atendamos a los otros requisitos que habfamos formulado al idear el programa. Necesitamos 
unas instrucciones que busquen en la lista un nombre introducido por el usuario. Escriba lo 
siguiente: 

130 INPUT "Buscar ";BUSCA$ 

140 FOR x=l TO 100 

150 IF INSTR(N0MBRE$(x),BUSCA$)=0 THEN 180 

160 PRINT N0MBRE$(x);" ";TEL$(x) 

170 END 

180 NEXT 

190 PRINT"No lo encuentro" 

En la Ifnea 150 hay una instruccion nueva: INSTR. Esta instruccion determina si la cadena literal 
BUSCA$ (que es el nombre que estamos buscando, captado en la Ifnea 1 30) esta contenida en 
NOMBRES(x). Si no lo esta, INSTR genera el valor O, y entonces el programa salta a la Ifnea 1 80 
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para probar con el siguiente valor de x. Si el programa ha examinado sin exito todos los 
elementos de la lista, continua en la Ifnea 1 90, donde informa de lo que ha ocurrido. En cambio, 
si encuentra el nombre, INSTR produce un valor mayor que O, lo que permite que el programa 
pase de la Ifnea 1 50 a la 1 60 para escribir el nombre y el numero de telefono y luego terminar 
con la instruccion END de la Ifnea I 70. 

Como ve, nuestro programa avanza muy deprisa, pero todavia nos queda mucho por hacer. 
Meditemos un poco sobre los inconvenientes de este programa, empezando por el orden en 
que funciona: primero capta la informacion, despues la escribe completa en la pantalla, luego 
busca un nombre concrete 

IQue ocurre si ... ? 

Precisamente. iQue ocurre si no queremos que los acontecimientos se produzcan en ese orden? 
Podrfamos querer consultar un telefono que introdujimos ayer. O podrfamos querer ampliar la 
lista con otros nombres. Esto nos plantea nuevos problemas, para los que tenemos que 
encontrar solucion. Despues de todo, en esto es en lo que consiste la programacion. Ya hemos 
dicho que BASIC es muy amable y nos permite rectificar e incluir nuevas instrucciones con gran 
facilidad; pero un buen programador habrfa pensado en todo esto de antemano. 

Otro grave inconveniente del programa consiste en que las listas quedan almacenadas solamente 
en la memoria del ordenador, la cual se borra cada vez que se apaga el ordenador. De poco nos 
servirfa este programa si tuvieramos que escribir todos los datos cada vez que lo ejecutasemos; 
asf pues, necesitamos que el programa pueda grabar los valores de los elementos de NOMBRE$ 
y TEL$ antes de que apaguemos el ordenador, y tambien que pueda cargar los datos cada vez 
que lo ejecutemos. 

Soluciones 

El primero de los problemas mencionados (el del orden de ejecucion) se resuelve haciendo que 
el programa de la posibilidad de elegir entre las funciones que sabe realizar. De un programa de 
este tipo se dice que esta 'controlado por menu' pues, en efecto, ofrece un menu de opciones 
de entre las cuales se elige la deseada. Si alguna vez ha sacado dinero de un cajero automatico, 
ya ha utilizado un programa de ordenador controlado por menu. Ahadamos un menu a nuestro 
programa: 

32 PRINT "1. Introd. datos" 

33 PRINT "2. Listado" 

34 PRINT "3. Busqueda" 

35 PRINT "4. Grabar datos" 

36 PRINT "5. Cargar datos" 

37 INPUT "El i ja una opcion (1-5) ";el 

38 ON el GOSUB 40,90,130 

85 RETURN 
125 RETURN 
170 RETURN 
200 RETURN 

Hemos hecho que el programa escriba la lista de opciones y que capte la eleccion del usuario 
mediante una instruccion INPUT para asignarla a la variable el. La instruccion ON el GOSUB de 
la Ifnea 38 funciona de la siguiente forma: si el= I, invoca la subrutina de la Ifnea 40; si el = 2, 
invoca la subrutina de la Ifnea 90, etc. 
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Puesto que todas las funciones estan ahora en subrutinas (controladas por la instruccion ON el 
GOSUB), tienen que terminar en una instruccion RETURN. De ahi que hayamos incluido las 
Iineas85, 125, 1 70 y 200. 

iRecuerda para que sirve RETURN? Hace que BASIC retorne de la subrutina a la instruccion 
siguiente a aquella que invoco la subrutina. En nuestro caso, el punto de retorno es la instruccion 
siguiente a la Ifnea 38, que es la Ifnea 40. Si dejamos que esto ocurra, el programa entra en la 
subrutina de 'Introduccion de datos'. Para impedirlo anadimos la linea 

39 GOTO 32 
que reconduce el programa al menu. 



Ejecute el programa y vea cuanto hemos progresado. 

Bien; vamos a echar un vistazo al listado. (Detenga el programa pulsando [ESC] dos veces.) 
Escriba: 

LIST 



Esto es lo que tenemos por el momento: 

10 REM guia de telefonos 
20 DIM N0MBRE$(100) 
30 DIM TEL$(100) 



32 


PRINT "1. Introd. 


datos" 


33 


PRINT "2. Listadc 


i" 


34 


PRINT "3. Busquec 


la" 


35 


PRINT "4. Grabar 


datos" 


36 


PRINT "5. Cargar 


datos" 


37 


INPUT "Eli ja una 


opcion (1-5) ";el 


38 


ON el GOSUB 40,9C 


1,130 


39 


GOTO 32 




40 


FOR x=l TO 100 




45 


CLS 




47 


PRINT"Pulse [RETURN] para terminar" 


50 


INPUT;" Nombre "; 


N0MBRE$(x) 


55 


IF N0MBRE$(x)="" 


THEN 80 


60 


INPUT;" Telefono 


";TEL$(x) 


70 


NEXT 




80 


PRINT "Fin de la 


entrada de datos" 


85 


RETURN 




90 


FOR x-1 TO 100 




95 


IF N0MBRE$(x)="" 


THEN 120 


100 PRINT N0MBRE$(x) 


;" ";TEL$(x) 


11C 


1 NEXT 




12C 


l PRINT "Fin de la 


i lista" 


125 


> RETURN 




13C 


1 INPUT "Buscar "; 


BUSCA$ 


14C 


1 FOR x=l TO 100 




15C 


1 IF INSTR(N0MBRE$(x),BUSCA$)=0 THEN 180 


160 PRINT N0MBRE$(x) 


;" ";TEL$(x) 


17C 


1 END 




18C 


1 NEXT 




19C 


l PRINT"No lo enct 


lentro" 
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200 RETURN 

Observe que en algunas zonas del programa las instrucciones estan muy apretadas y no dejan 
hueco para introducir otras nuevas. Reorganicemos el programa renumerando las Ifneas. Escriba: 

RENUM 
LIST 

El listado es ahora: 

10 REM guia de telefonos 

20 DIM N0MBRE$(100) 

30 DIM TEL$(100) 

40 PRINT "1. Introd. datos" 

50 PRINT "2. Listado" 

60 PRINT "3. Busqueda" 

70 PRINT "4. Grabar datos" 

80 PRINT "5. Cargar datos" 

90 INPUT "El i ja una opcion (1-5) ";el 

100 ON el G0SUB 120,210,270 

110 GOTO 40 

120 FOR x=l TO 100 

130 CLS 

140 PRINT"Pulse [RETURN] para terminar" 

150 INPUT;" Nombre ";N0MBRE$(x) 

160 IF N0MBRE$(x)="" THEN 190 

170 INPUT;" Telefono ";TEL$(x) 

180 NEXT 

190 PRINT "Fin de la entrada de datos" 

200 RETURN 

210 FOR x=l TO 100 

220 IF N0MBRE$(x)="" THEN 250 

230 PRINT N0MBRE$(x);" ";TEL$(x) 

240 NEXT 

250 PRINT "Fin de la lista" 

260 RETURN 

270 INPUT "Buscar ";BUSCA$ 

280 FOR x=l TO 100 

290 IF INSTR(N0MBRE$(x),BUSCA$)=0 THEN 320 

300 PRINT N0MBRE$(x);" ";TEL$(x) 

310 END 

320 NEXT 

330 PRINT"No lo encuentro" 

340 RETURN 

iMucho mas limpio! Pero sigamos con el programa. Ahora queremos que cada vez que 
introduzcamos un dato nuevo (nombre y numero), el ordenador lo coloque al final de la lista 
actual, en el primer lugar que encuentre vacfo. En esta ocasion vamos a utilizar la instruccion 
LEN para determinar la longitud de una cadena literal. Especificaremos lo siguiente: 

Si (IF) la longitud de NOMBRES(x) es mayor que 0, es decir, si ya hay un dato en ese elemento 
de la lista, entonces (THEN) ir a la Ifnea 180 (que provoca el salto al siguiente elemento de la 
lista): 

135 IF LEN(N0MBRE$(x))>0 THEN 180 
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Una solucion sencilla, iverdad? Los problemas de este tipo siempre tienen solucion si 
conocemos bien la lista de instrucciones y nos paramos a pensar un poco. Para casi todas las 
necesidades hay casi siempre al menos una instruccion; cuanto mayor es la experiencia en 
programacion, mas inmediatas son las soluciones. 

Vamos con otro requisito del programa: grabar los valores de las variables para poder cargarlos 
mas tarde. En la parte 7 del 'Curso de introduccion' hemos explicado como grabar programas 
(con la orden SAVE). Pero el programa no es mas que la herramienta que nos permite captar y 
manipular los datos; cuando grabamos el programa solo estamos guardando la herramienta, no 
los valores de las variables. 

Asf pues, tenemos que escribir una seccion del programa que grabe los valores de las variables. 
Para ello crearemos un 'fichero de datos'. 

Lo primero es abrir (OPEN) un fichero en direccion de salida (OUT) dandole el nombre de 
'datos'. Despues escribiremos (WRITE) los valores de las variables NOMBRES(x) y TELS(x), de I 
a 100, en el fichero; finalmente, cerraremos (CLOSE) el fichero y retornaremos (RETURN) al 
menu. Pondremos esta rutina en las Ifneas 350 y siguientes. Para no tener que escribir los 
numeros de Ifnea, ejecutaremos la orden 

AUTO 350 

que inicia la numeracion automatica de las Ifneas a partir del numero 350: 

350 0PEN0UT "datos" 
360 FOR x=l TO 100 

370 WRITE #9,N0MBRE$(x),TEL$(x) 

380 NEXT 

390 CL0SE0UT 

400 PRINT"Fin de la grabacion de los datos" 

410 RETURN 

Cuando haya terminado de teclear la Ifnea 410 y haya pulsado [RETURN], pulse [ESC] para 
interrumpir la funcion AUTO. 

Como tenemos una rutina mas, tendremos que poner otro numero de Ifnea en la instruccion 
ON el GOSUB de la Ifnea 100. Para ello vamos a corregir (editar, EDIT) la Ifnea 100: 

100 ON el GOSUB 120,210,270,350 

A partir de ahora, cada vez que elijamos la opcion 4 del menu, el programa grabara el fichero de 
datos en el disco. 

Observe la Ifnea 370, en la que se escriben los valores de NOMBRE$(x) y TEL$(x) en el disco: la 
expresion #9 que aparece despues de WRITE es un 'indicador de canal' que especifica a que 
canal debe el ordenador enviar los datos. El ordenador maneja 1 canales: 

Los ocho primeros (#0 a #7) dirigen los datos a la pantalla [bien a la pantalla completa, bien a 
alguna ventana (WINDOW)]. 

El canal #8 es el de la impresora. 

Finalmente, el canal #9 es el que conecta el ordenador con la unidad de disco; este es el que 
utilizamos en la instruccion 370. 
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Una digresion 

Hagamos un comentario sobre la orden AUTO que acabamos de conocer. Si se escribe 
sencillamente 

AUTO 

el ordenador empieza a numerar Ifneas a partir del 10 y va incrementando el numero de 10 en 
10 cada vez que se pulsa [RETURN]. Si ya existen Ifneas 10, 20, 30, etc., su contenido aparece 
en la pantalla segun se va pasando por ellas (pulsando [RETURN]) 

Cuando aparece una Ifnea en la pantalla, se la puede editar antes de pulsar [RETURN]. Esto da 
un metodo para editar comodamente lineas cuyos numeros esten uniformemente espaciados. 

Volvemos alprograma 

Ya hemos escrito las instrucciones que graban los datos en disco. Ahora nos falta ocuparnos de 
la lectura de los datos para ponerlos a disposicion del programa. Como vamos a escribir una 
nueva rutina, tendremos que poner otro numero de linea en la instruccion ON el GOSUB. 
Editemos la Ifnea 100: 

100 ON el GOSUB 120,210,270,350,420 

Para leer los datos tenemos que empezar por abrir (OPEN) en direccion de entrada (IN) el 
fichero que tenemos en el disco con el nombre de 'datos'. Despues leemos con INPUT (por el 
canal #9) los valores de las variables NOMBRES(x) y TELS(x), de I a 100, y finalmente cerramos 
(CLOSE) el fichero y retornamos (RETURN) al menu. Escriba las siguientes lineas: 

420 0PENIN "datos" 

430 FOR x=l TO 100 

440 INPUT #9,N0MBRE$(x),TEL$(x) 

450 NEXT 

460 CL0SEIN 

470 PRINT"Fin de la carga de los datos" 

480 RETURN 



Elfin del principio 

Por fin hemos conseguido un programa que realiza todas las funciones previstas. Todo lo que 
nos queda ahora es ocuparnos de como presentar los resultados en la pantalla. 

El principio del fin 

Para mejorar el manejo de la pantalla vamos a ahadir unas cuantas instrucciones: 
34 MODE 1 

Esta instruccion establece el modo de pantalla y borra la pantalla al principio del programa. 
Ahada ahora lo siguiente: 

36 WINDOW #1,13,30,10,14 

No se deje impresionar por esta instruccion aparentemente tan complicada. Lo que hemos 
hecho es definir una ventana en la pantalla para escribir en ella el menu. Despues de la palabra 

Manual de Amstrad CPC 6 1 28 (revision 2008) - Pagina 1 05 



WINDOW, lo primero que ponemos es el numero del canal al que vamos a asignarla; recuerde 
que podemos elegir cualquiera entre el y el 7. Ahora bien, si tenemos en cuenta que todos los 
textos que enviamos a la pantalla sin especificar numero de canal circulan por el #0, no vamos a 
dar este numero a nuestra ventana. Elegimos, pues, el numero I . Los cuatro numeros que 
vienen a continuacion especifican el tamano de la ventana. Su significado no podfa ser mas 
sencillo: columna del borde izquierdo, columna del derecho, primera fila y ultima fila, por este 
orden. En nuestro caso, despues de especificar el canal # I , nemos dicho al ordenador que la 
ventana empieza en la columna numero 1 3 y termina en la numero 30, en horizontal, y que 
empieza en la fila 1 y termina en la 1 4, en vertical. 

Para dirigir los textos del menu al canal # I debemos editar las Ifneas 40 a 80: 

40 PRINT #1,"1. Introd. datos" 

50 PRINT #1,"2. Listado" 

60 PRINT #1,"3. Busqueda" 

70 PRINT #1,"4. Grabar datos" 

80 PRINT #1,"5. Cargar datos" 

Ahadamos tambien 

85 LOCATE 7,20 

para situar el texto de la linea 90. 

Para borrar la pantalla cada vez que el programa retorne al menu, modifiquemos la Ifnea I 10: 
110 GOTO 34 

Ademas, para borrar la pantalla cada vez que se selecciona una opcion del menu ahadimos: 
95 CLS 

Finalmente, incluiremos las tres lineas siguientes para hacer que el retorno al menu sea 
controlado por el usuario: 

103 LOCATE 9,20 

105 PRINT"Pulse una tecla para volver al menu" 

107 IF INKEY$="" THEN 107 

La Ifnea 103 especifica donde se debe escribir el mensaje de la linea 105. La Ifnea 107 examina el 
teclado para averiguar si se ha pulsado alguna tecla. Si no se ha pulsado ninguna, INKEYS genera 
la cadena vacfa y entonces se repite la ejecucion de la Ifnea hasta que efectivamente se pulse 
alguna. Esta es la forma habitual de programar la espera 'hasta que el usuario se decida', pues 
BASIC no pasa a la Ifnea siguiente mientras no se pulse una tecla. 

Bueno, ya hemos terminado. O quiza no, porque podrfamos incluir la posibilidad de modificar o 
borrar nombres y numeros de telefono, de ordenarlos alfabeticamente, de listarlos por la 
impresora, etc. Todas estas mejoras son posibles; podrfamos seguir mejorando y depurando el 
programa indefinidamente, pero en algun momento tenemos que poner el punto y aparte, y este 
es tan bueno como cualquier otro. Le dejamos, pues, con este programa de 'gufa de telefonos', 
confiando en haberle abierto las puertas del arte de programar. Adecente el programa con la 
orden 

RENUM 
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y grabelo en disco; o borrelo si no le gusta. Quien sabe; quiza pueda necesitarlo algun dfa. 

Listado final: 

10 REM guia de telefonos 

20 DIM N0MBRE$(100) 

30 DIM TEL$(100) 

40 MODE 1 

50 WINDOW #1,13,30,10,14 

60 PRINT #1,"1. Introd. datos" 

70 PRINT #1,"2. Listado" 

80 PRINT #1,"3. Busqueda" 

90 PRINT #1,"4. Grabar datos" 

100 PRINT #1,"5. Cargar datos" 

110 LOCATE 7,20 

120 INPUT "El i ja una opcion (1-5) ";el 

130 CLS 

140 ON el G0SUB 190,290,350,430,500 

150 LOCATE 9,20 

160 PRINT"Pulse una tecla para volver al menu" 

170 IF INKEY$="" THEN 170 

180 GOTO 40 

190 FOR x=l TO 100 

200 CLS 

210 IF LEN(N0MBRE$(x))>0 THEN 260 

220 PRINT"Pulse [RETURN] para terminar" 

230 INPUT;" Nombre ";N0MBRE$(x) 

240 IF N0MBRE$(x)="" THEN 270 

250 INPUT;" Telefono ";TEL$(x) 

260 NEXT 

270 PRINT "Fin de la entrada de datos" 

280 RETURN 

290 FOR x=l TO 100 

300 IF N0MBRE$(x)="" THEN 330 

310 PRINT N0MBRE$(x);" ";TEL$(x) 

320 NEXT 

330 PRINT "Fin de la lista" 

340 RETURN 

350 INPUT "Buscar ";BUSCA$ 

360 FOR x-1 TO 100 

370 IF INSTR(N0MBRE$(x),BUSCA$)=0 THEN 400 

380 PRINT N0MBRE$(x);" ";TEL$(x) 

390 END 

400 NEXT 

410 PRINT"No lo encuentro" 

420 RETURN 

430 OPENOUT "datos" 

440 FOR x=l TO 100 

450 WRITE #9,N0MBRE$(x),TEL$(x) 

460 NEXT 

470 CLOSEOUT 

480 PRINT"Fin de la grabacion de los datos" 

490 RETURN 

500 OPENIN "datos" 

510 FOR x-1 TO 100 
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520 INPUT #9,N0MBRE$(x),TEL$(x) 

530 NEXT 

540 CLOSEIN 

550 PRINT"Fin de la carga de los datos" 

560 RETURN 



Nota del revisor (2008): La Ifnea 390 hace que el programa se interrumpa cuando se busca un 
dato (y eso puede suponer que se pierdan los datos introducidos). Posiblemente serfa mas 
razonable llevar una variable "encontrado" para controlar si ha aparecido algun dato o no, y 
mostrar un mensaje final adecuado: 

355 encontrado = 
390 encontrado = 1 
410 IF encontrado = THEN PRINT "No lo encuentro" 
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Capitulo 3 - Lista completa de las palabras clave del BASIC 
de AMSTRAD 

IMPORTANTE 

Es imprescindible que usted comprenda la terminologia y la notacion utilizadas en este capitulo. 
Para describir la sintaxis de las diversas instrucciones utilizamos tanto parentesis como 
corchetes. Es necesario distinguirlos, pues tienen significados diferentes. 

Toda instruccion, o parte de instruccion, no encerrada entre corchetes debe ser escrita tal 
como aquf se muestra. Por ejemplo, la instruccion END tiene la forma: 

END 
Usted tiene que escribir la palabra END literalmente. 

Cuando un texto esta encerrado entre corchetes angulados, por ejemplo 

<numero de 1 Tnea> 
no hay que teclear ni los corchetes ni las palabras en ellos incluidas. El texto es una indicacion del 
tipo de datos que se debe escribir. Por ejemplo, 

EDIT <numero de lTnea> 
significa que hay que escribir la palabra EDIT y a continuacion un espacio y un numero de linea: 

EDIT 100 

Los parentesis ordinarios ( ) son obligatorios y han de ser tecleados explicitamente. Por ejemplo, 

C0S(<expresi6n numerica>) 

exige que se escriban los parentesis rodeando la expresion numerica cuyo coseno se quiera 
calcular: 

PRINT C0S(45) 

Finalmente, los corchetes delimitan elementos opcionales. Por ejemplo, 

RUN [<numero de lfnea>] 

significa que no es necesario poner un parametro despues de la palabra clave RUN, pero que si 
se puede incluir ese parametro; ademas, en caso de incluirlo, tiene que ser necesariamente un 
numero de linea: 

RUN ... o ... RUN 100 



Caracteres especiales 

& o &H Prefijo para constante hexadecimal 
&X Prefijo para constante binaria 

# Prefijo para indicador de canal 

Tipos de datos 

Las cadenas literales pueden contener entre y 255 caracteres. Una <expresion literal) es una 
expresion que toma como valor una cadena literal. Las cadenas literales se pueden concatenar 
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(unir) con el operador +, a condicion de que la cadena resultante no tenga mas de 255 
caracteres. 

Los datos numericos pueden ser enteros o reales. En este sentido, los enteros tienen la limita- 
cion adicional de estar comprendidos entre -32768 y +32767. El ordenador maneja numeros 
reales con precision ligeramente superior a nueve digitos. Los numeros reales estan compren- 
didos en el margen ± 1 .7E + 38. El menor valor mayor que cero es aproximadamente 2.9E-39. 

Una <expresion numerica> es una expresion que toma como valor un numero. Puede consistir 
en numeros concretos, en una variable numerica o en combinaciones de ambos: cualquier cosa 
que no sea una <expresion literal>. 

Una <expresion de numero de canal> es una <expresion numerica> que identifica una 
ventana de la pantalla, la impresora o la unidad de disco. 

Una <lista de:<elemento>> describe un parametro que esta formado por una lista de 
elementos separados por comas. Puede contener uno o varios elementos, sin mas limitacion que 
la longitud de la Ifnea. 

Los indicadores de tipo son: 

% Entero 

! Real (por defecto) 

$ Literal 

La lista de las palabras clave tiene la siguiente estructura: 

• PALABRA CLAVE 

• Sintaxis 

• Ejemplo 

• Descripcion 

• Palabras clave asociadas 

Las palabras clave pueden ser: 

• Ordenes: operaciones que se ejecutan directamente. 

• Funciones: operaciones que intervienen como argumentos de una expresion. 

• Operadores: operaciones que actuan sobre argumentos matematicos. 



BASIC convierte todas las palabras clave de minusculas a mayusculas cuando se lista el programa. 
En los ejemplos las mostraremos en mayusculas. Es conveniente que usted las introduzca en 
minusculas, pues entonces le sera mas facil detectar los errores, dado que las palabras clave 
erroneamente tecleadas seguiran apareciendo en minuscula en los listados. 

En la publicacion Concise BASIC specification SOFT 967' se da una guia exhaustiva del BASIC 
del AMSTRAC CPC6 1 28. 
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Lista depalabras clave 
ABS 

Sintaxis: ABS (<expresion numerica>) 

Ejemplo: 

PRINT ABS(-67.98) 
67.98 

Funcion. Calcula el valor absoluto de la expresion dada; es decir, convierte los numeros 
negativos en positivos. 

Palabras clave asociadas: SGN. 



AFTER 

Sintaxis: AFTER <retardo del temporizador >[, < numero de temporizador>] GOSUB 
[numero de Ifnea] 

Ejemplo: 

10 AFTER 250 GOSUB 60:CLS 

20 PRINT "Adivine una letra en 5 segundos" 

30 a$=INKEY$:IF indicador=l THEN END 

40 IF a$<>CHR$(INT(RND*26+97)) THEN 30 

50 PRINT a$;" es correcto. Listed gana." 

55 SOUND 1,478:S0UND 1,358:END 

60 PRINT "demasiado tarde. Yo gano." 

70 SOUND l,2000:indicador=l:RETURN 

run 

Orden. Invoca una subrutina de BASIC cuando ha transcurrido el tiempo especificado. El 
parametro <retardo del temporizador> especifica el tiempo en unidades de 0.02 s 
(cincuentavos de segundo). 

El < numero de temporizador> (margen de a 3) especifica cual de los cuatro temporizadores 
disponibles debe medir el tiempo. El temporizador numero 3 tiene la maxima prioridad; el 
(que es el implfcito), la minima. 

Cada temporizador puede tener una subrutina asociada. 

Para mas amplia informacion sobre las interrupciones, consulte la parte 3 del capftulo titulado 
'Cuando usted guste ...'. 

Palabras clave asociadas: EVERY, REMAIN, RETURN. 

AND 

Sintaxis: (argumento) AND (argumento) 
Ejemplo: 
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IF "juan"<" P epe" AND "perro">"gato" THEN PRINT "verdadero" ELSE PRINT "falso" 

verdadero 

IF "pepe"<"juan" AND "gato">"perro" THEN PRINT "verdadero" ELSE PRINT "falso" 

falso 

IF "juan"<"pepe" AND "gato">"perro" THEN PRINT "verdadero" ELSE PRINT "falso" 

Falso 

PRINT 1 AND 1 

1 

PRINT AND 



PRINT 1 AND 



Operador. Realiza la operacion logica 'y' bit a bit entre enteros. El resultado es a menos que 
am bos bits sean I . 

Para mas amplia informacion sobre operaciones logicas, consulte la parte 2 del capftulo titulado 
'Cuando usted guste...' . 

Palabras clave asociadas: OR, NOT, XOR. 

ASC 

Sintaxis: ASC (<expresion literal >) 
Ejemplo: 

PRINT ASC("x") 
120 

Funcion. Calcula el codigo ASCII del primer caracter de la <expresion literal>. 
Palabras clave asociadas: CHR$. 

ATN 

Sintaxis: ATN (<expresion numerica>) 
Ejemplo: 

PRINT ATN(l) 
0.785398163 

Funcion. Calcula el arco cuyatangente es la <expresion numerica>. 

Observese que se puede utilizar DEG y RAD para hacer que el resultado se de en grados o en 
radianes, respectivamente. 

Palabras clave asociadas: COS, DEG, RAD, SIN, TAN. 

AUTO 

Sintaxis: AUTO [<numero de l(nea>] [, <incremento>] 
Ejemplo: 

AUTO 100,50 
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Orden. Genera numeros de Ifnea AUTOmaticamente. El parametro opcional < numero de 
l(nea> especifica en que numero debe empezar la numeracion. Si se lo omite, el ordenador 
genera numeros de Ifnea a partir del 1 0. 

El parametro opcional <incremento> especifica el salto que debe haber entre cada Ifnea y la 
siguiente. Si se lo omite, el ordenador genera numeros de Ifnea espaciados de 10 en 10. 

Si se genera un numero de Ifnea que ya ha sido utilizado, el ordenador la muestra en la pantalla y 
entonces se la puede editar, si es necesario. La Ifnea editada sustituye a la que esta en la 
memoria en el momento de pulsar [RETURN]. 

Para interrumpir el proceso de numeracion automatica, pulse [ESC]. 

Palabras clave asociadas: ninguna. 

BIN$ 

Sintaxis: BIN$ (<expresion entera> [, <expresion entera>] ) 
Ejemplo: 

PRINT BIN$(64,8) 
01000000 

Funcion. Produce una cadena de dfgitos binarios que representan el valor de la primera 
< expresion entera>, utilizando el numero de dfgitos binarios especificados por la segunda 
<expresion entera> (margen de a 16). Si el numero de dfgitos especificado es mayor que el 
necesario, la expresion resultante se completa con ceros por la izquierda; si el numero de dfgitos 
especificado es demasiado pequeho, la expresion resultante no se trunca, sino que contiene 
todos los dfgitos que sean necesarios. 

La < expresion entera> que se va a convertir en binario debe tener un valor comprendido entre 
-32768 y + 65535. 

Palabras clave asociadas: DEC$, HEX$, STR$. 

BORDER 

Sintaxis: BORDER <color>[ , <color>] 
Ejemplo: 

10 REM 729 combinaciones para el borde! 

20 SPEED INK 5,5 

30 FOR a=0 TO 26 

40 FOR b=0 TO 26 

50 BORDER a, b:CLS: LOCATE 14,13 

60 PRINT "border" ;a;",";b 

70 FOR t=l TO 500 

80 NEXT t,b,a 

run 

Orden. Cambia el color del borde de la pantalla. Si se especifican dos colores, el del borde 
alterna entre ambos, a una velocidad que se puede regular con la orden SPEED INK. El margen 
de colores es de a 26. 

Palabras clave asociadas: SPEED INK. 
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BREAK 

Vease ON BREAK CONT, ON BREAK GOSUB, ON BREAK STOP. 

CALL 

Sintaxis: CALL <expresion de direccion de memoria>[, < lista de:<parametro>] 
Ejemplo: 

CALL 

Orden. Permite invocar desde BASIC una rutina escrita en codigo de maquina. El ejemplo 
anterior provoca la reinicializacion de la maquina. 

Esta orden no debe ser utilizada si no se sabe cuales son sus efectos. Palabras clave asociadas: 
UNT. 

CAT 

Sintaxis: CAT 
Ejemplo: 

CAT 

Orden. Da un catalogo del contenido del disco. Presenta en la pantalla, en orden alfanumerico, 
los nombres completos de todos los ficheros, junto con las respectivas longitudes (en unidades 
de Kbytes, redondeadas por exceso). Tambien se muestra el espacio libre que queda en el disco, 
asi como las identificaciones de la unidad y del usuario. 

Esta orden no afecta al programa actualmente residente en la memoria. 

Palabras clave asociadas: LOAD, RUN, SAVE. 

Nota del revisor (2008): En los CPC464, o si se usa un CPC664 o un CPC6 1 28 leyendo desde 
una unidad de cassette, esta orden hace que BASIC se ponga a examinar la cinta y de una lista de 
los ficheros que va encontrando. Para cada fichero muestra cada uno de los bloques integrantes, 
con el siguiente formato: 

NOMBREDEFICHERO Numerodebloque Indicador Ok 
Se vera mas detalle sobre el manejo de cintas en el capftulo 4, parte 2. 

CHAIN 

Sintaxis: CHAIN <nombre de fichero >[,<expresion de numero de l(nea>] 
Ejemplo: 

CHAIN "programa. bas", 350 

Orden. Lee un programa grabado en disco y lo carga en la memoria reemplazando al actual. Inicia 
la ejecucion del nuevo programa, bien desde el principio, bien desde una Ifnea especificada por 
el parametro opcional <expresion de numero de l(nea>. 

Los ficheros protegidos (grabados con SAVE ... ,p) se pueden cargar y ejecutar con esta orden. 

Palabras clave asociadas: CHAIN MERGE, LOAD, MERGE. 
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CHAIN MERGE 

Sintaxis: CHAIN MERGE <nombre de fichero>[,<expresion de numero de l(nea>] [, DELETE 
<margen de numeros de lfnea>] 

Ejemplo: 

CHAIN MERGE "nuevoprp.bas" ,750, DELETE 400-680 

Orden. Lee un programa grabado en el disco, lo carga en la memoria mezclandolo con el actual y 
empieza a ejecutar el programa resultante, bien desde el principio, bien desde una Ifnea 
especificada por el parametro opcional <expresion de numero de l(nea>. Si se desea borrar 
parte del programa original antes de iniciar la carga del nuevo, se puede utilizar la opcion 
DELETE <margen de numeros de l(nea>. 

Observese que las Ifneas del programa que se carga sustituyen a las que tuvieran el mismo 
numero en el programa original. 

Los ficheros protegidos (grabados con SAVE ... ,p) no se pueden cargar con esta orden. 

Palabras clave asociadas: CHAIN, DELETE, LOAD, MERGE. 

CHR$ 

Sintaxis: CHR$ (<expresion entera>) 
Ejemplo: 

10 FOR x=32 TO 255 

20 PRINT x;CHR$(x), 

30 NEXT 

run 
Funcion. Convierte la <expresion entera>, que tiene que estar en el margen de a 255, en su 
caracter equivalente. El conjunto de caracteres del AMSTRAD se muestra en la parte 3 del 
capitulo titulado 'Para su referenda'. 

Observese que los numeros a 3 1 generan caracteres de control; por esa razon los hemos 
excluido del ejemplo anterior. 

Palabras clave asociadas: ASC. 

CINT 

Sintaxis: CINT ( <expresion numerica> ) 

Ejemplo: 

10 n=1.9999 

20 PRINT CINT(n) 

run 

2 

Funcion. Aproxima el valor de la <expresion numerica> a un numero entero comprendido en el 
margen de -32768 a +32767. 

Palabras clave asociadas: CREAL, FIX, INT, ROUND, UNT. 

CLEAR 

Sintaxis: CLEAR 
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Ejemplo: 

CLEAR 

Orden. Borra todas las variables (iguala a cero las numericas y a la cadena vacia las literales). 
Ademas, se abandonan los ficheros que esten abiertos, se borran todas las listas y funciones 
definidas por el usuario y BASIC retorna al modo de radianes para el calculo de funciones 
trigonometricas. 

Palabras clave asociadas: ninguna. 

CLEAR INPUT 

Sintaxis: CLEAR INPUT 
Ejemplo: 

10 CLS 

20 PRINT "Teclee letras ahora!" 

30 FOR t=l TO 3000 

40 NEXT 

50 CLEAR INPUT 

run 

Orden. Desecha todos los caracteres tecleados antes y que todavia esten en el tampon del 
teclado; es decir, borra el tampon del teclado. 

Para observar el efecto de esta orden, ejecute el programa ejemplo y escriba letras cuando el 
ordenador se lo pida. Borre luego la Ifnea 50 y vuelva a ejecutar el programa. 

Palabras clave asociadas: IN KEY, INKEY$, JOY. 

CLG 

Sintaxis: CLG [<tinta>] 
Ejemplo: 

LOCATE 1,220 
CLG 3 

Orden. Borra la pantalla grafica, dejandola del color del papel de graficos. Si se especifica la 
<tinta>, el papel de graficos toma ese color. 

Palabras clave asociadas: CLS, GRAPHICS PAPER, INK, ORIGIN. 

CLOSEIN 

Sintaxis: CLOSEIN 
Ejemplo: 

CLOSEIN 

Orden. Cierra el fichero de disco que este abierto en direccion de entrada (si lo hay). (Vease 
OPENIN.) 

Palabras clave asociadas: CLOSEOUT, EOF, OPENIN. 
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CLOSEOUT 

Sintaxis: CLOSEOUT 
Ejemplo: 

CLOSEOUT 

Orden. Cierra el fichero de disco que este abierto en direccion de salida (si lo hay). (Vease 
OPENOUT.) 

Palabras clave asociadas: CLOSEIN, OPENOUT. 

CLS 

Sintaxis: CLS [#<expresion de numero de canal>] 
Ejemplo: 

10 PAPER #2,3 
20 CLS #2 
run 

Orden. Borra la ventana (canal de pantalla) especificada, tihendola del color del papel. Si no se 
especifica ninguna <expresion de numero de canal >, el ordenador borra la pantalla #0. 

Palabras clave asociadas: CLG, INK, PAPER, WINDOW. 

com 

Sintaxis: CONT 
Ejemplo: 

CONT 

Orden. Reanuda la ejecucion del programa cuando este ha sido interrumpido, bien porque se ha 
pulsado la tecla [ESC] dos veces, bien porque el programa ha encontrado la instruccion STOP. 
CONT solamente puede continuar el programa en el supuesto de que no se lo haya modificado 
durante la interrupcion y de que no se trate de un programa protegido. 

Palabras clave asociadas: STOP. 

COPYCHR$ 

Sintaxis: COPYCHR$(#<expresion de numero de canal>) 
Ejemplo: 

10 CLS 

20 PRINT "Extremo superior izquierdo" 

30 LOCATE 1,1 

40 a$=C0PYCHR$(#0) 

50 LOCATE 1,20 

60 PRINT a$ 

run 

Funcion. Lee el caracter que hay en la posicion actual del cursor; la ventana tiene que ser 
especificada. El programa ejemplo lee el caracter que esta en la posicion 1,1 y lo escribe en la 
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posicion 1 ,20. 

Si el caracter no es reconocible, esta funcion genera la cadena vacfa. 

Palabras clave asociadas: LOCATE. 

Nota del revisor (2008): La funcion COPYCHR$ esta disponible en los Amstrad CPC6I28 y 
en los CPC664, pero no en el modelo inicial CPC464. 

COS 

Sintaxis: COS (<expresion numerica>) 
Ejemplo: 

DEG 

PRINT C0S(45) 

0.707106781 

Funcion. Calculael coseno de la <expresion numerica>. 

Observese que se puede utilizar DEG y RAD para hacer que el ordenador entienda los arcos 
como dados en grados o en radianes, respectivamente. 

Palabras clave asociadas: ATN, DEG, RAD, SIN. 

CREAL 

Sintaxis: CREAL (<expresion numerica>) 

Ejemplo: 

10 a=PI 

20 PRINT CINT(a) 

30 PRINT CREAL(a) 

run 

3 

3.14159265 

Funcion. Convierte el valor de la <expresion numerica>, cualquiera que sea su tipo, en un 
numero real. 

Palabras clave asociadas: CI NT. 

CURSOR 

Sintaxis: CURSOR (<conmutador del sistema>][ , <conmutador del usuario>] 
Ejemplo: 

10 CURSOR 1 

20 PRINT "pregunta?"; 

30 a$=INKEY$;IF a$="" THEN 30 

40 PRINT a$ 

50 CURSOR 

run 

Orden. El cursor puede ser activado o inhibido por dos conmutadores: el del sistema y el del 
usuario. Esta orden controla los dos conmutadores. Los parametros pueden ser (inhibido) o I 
(activado). En la instruccion INKEYS el cursor esta normalmente oculto, pero en el programa 
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ejemplo ha sido activado por el valor I del parametro <conmutador del sistema> en la Ifnea 10. 

Para que el cursor sea visible tienen que estar a I los dos conmutadores. El ordenador activa 
automaticamente el conmutador del sistema para la instruccion INPUT, pero lo desactiva para 
I NKEY$. 

Es conveniente ocultar el cursor antes de escribir texto en la pantalla. 

Se puede omitir cualquiera de los parametros, pero no los dos. Cuando se omite uno de los 
parametros, la situacion del correspondiente conmutador no se modifica. 

Palabras clave asociadas: LOCATE. 

Nota del revisor (2008): La orden CURSOR esta disponible en los Amstrad CPC6 1 28 y en los 
CPC664, pero no en el modelo inicial CPC464. 

DATA 

Sintaxis: DATA <lista de:<constante>> 
Ejemplo: 

10 FOR x=l TO 4 

20 READ nombre$,apellido$ 

30 PRINT "Don ";nombre$;" ";apellido$ 

40 NEXT 

50 DATA Manuel .Gonzalez, Daniel .Garcia 

60 DATA Felipe, Revilla, Ernesto, Diaz 

run 

Orden. Identifica las Ifneas en las que estan contenidos los datos que pueden ser lefdos con la 
instruccion READ. Cada vez que se lee un dato, el 'puntero' pasa a sehalar el siguiente elemento 
de la lista. Se puede utilizar la instruccion RESTORE para hacer que el puntero sehale una Ifnea 
de datos determinada. 

En la parte 2 del capftulo titulado Cuando usted guste ... ' daremos mas amplia informacion 
sobre los datos de este tipo. 

Palabras clave asociadas: READ, RESTORE. 

DEC$ 

Sintaxis: DEC$ (<expresion numerica> , < plantilla de formato>) 
Ejemplo: 

PRINT DEC$(10E7,"PtPt#########,.##") 
Ptl0,000,000.00 

Funcion. Produce una representacion en forma de cadena decimal de la <expresion numerica> 
utilizando la < plantilla de formato> especificada. 

La plantilla de formato solo puede contener los caracteres siguientes: 

+ - Pt $ # , 

La utilizacion de estos 'especificadores de formato' se describe en PRINT USING. 
Palabras clave asociadas: BIN$, HEX$, PRINT USING, STR$. 



Manual de Amstrad CPC 6 1 28 (revision 2008) - Pagina I 1 9 



DEFFN 

Sintaxis: DEF FN<nombre de lafuncion>[(<parametros de forma>)] = <expresion> 

Ejemplo: 

10 t=TIME/300 

20 DEF FNreloj=INT(TIME/300-t) 

30 EVERY 100 GOSUB 50 

40 GOTO 40 

50 PRINT "el programa se ejecuto hace"; 

60 PRINT FNreloj;"segundos" 

70 RETURN 

run 

Orden. BASIC permite que el programa defina y utilice funciones. DEF FN realiza la primera 
parte de ese mecanismo: crea una funcion especffica del programa; una vez definida, la funcion 
se maneja de la misma forma que las funciones intrfnsecas de BASIC. 

(Notese en el ejemplo anterior que el valor de la funcion FNreloj sigue siendo actualizada 
ininterrumpidamente, aunque se imponga una pausa al programa pulsando [ESC] dos veces para 
luego reanudarlo con CONT.) 

Palabras clave asociadas: ninguna. 

DEFINT 

Sintaxis: DEFINT <lista de:<margen de letras>> 
Ejemplo: 

10 DEFINT n 

20 numero=123.456 

30 PRINT numero 

run 

123 

Orden. Cada vez que el programa encuentra una variable que no vaya seguida de un indicador 
explfcito de tipo (! % $), el ordenador considera que es del tipo implfcito. Esta orden hace que 
el tipo implfcito sea 'variable entera'. La orden afecta a todas las variables cuyos nombres 
empiecen por la letra o letras especificadas. Se puede especificar una lista: 

DEFINT a.b.c 

o bien un margen de iniciales: 

DEFINT a-z 

Palabras clave asociadas: DEFREAL, DEFSTR. 

DEFREAL 

Sintaxis: DEFREAL < lista de:< margen de letras>> 
Ejemplo: 

DEFREAL x,a-f 

Orden. Cada vez que el programa encuentra una variable que no vaya seguida de un indicador 
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explfcito de tipo (! % $), el ordenador considera que es del tipo implfcito. Esta orden hace que 
el tipo implicito sea 'variable real'. La orden afecta a todas las variables cuyos nombres empiecen 
por la letra o letras especificadas. Se puede especificar una lista: 

DEFREAL a, b, c 

o bien un margen de iniciales: 

DEFREAL a-z 

Palabras clave asociadas: DEFINT, DEFSTR. 

DEFSTR 

Sintaxis: DEFSTR < lista de:< margen de letras >> 
Ejemplo: 

10 DEFSTR n 

20 nombre="Amstrad" 

30 PRINT nombre 

run 

Amstrad 

Orden. Cada vez que el programa encuentra una variable que no vaya seguida de un indicador 
explfcito de tipo (! % $), el ordenador considera que es del tipo implfcito. Esta orden hace que 
el tipo implfcito sea 'variable literal'. La orden afecta a todas las variables cuyos nombres 
empiecen por la letra o letras especificadas. Se puede especificar una lista: 

DEFSTR a, b, c 

bien un margen de iniciales: 

DEFSTR a-z 

Palabras clave asociadas: DEFINT, DEFREAL. 

DEG 

Sintaxis: DEG 
Ejemplo: 

DEG 

Orden. Hace que BASIC considere que los valores de los arcos que intervienen en los calculos 
trigonometricos estan expresados en grados, no en radianes. La situacion implfcita para las 
funciones SIN, COS, TAN y ATN es la inversa: radianes. DEG cambia de radianes a grados; las 
ordenes RAD, NEW, CLEAR, LOAD, RUN, etc. cambian de grados a radianes. 

Palabras clave asociadas: ATN, COS, RAD, SIN, TAN. 

DELETE 

Sintaxis: DELETE < margen de numeros de lfnea> 
Ejemplo: 

DELETE 100-200 
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Orden. Borra la instruccion o grupo de instrucciones especificado por <margen de numeros de 
l(nea>. 

Si se omite el primer numero de <margen de numeros de l(nea>, se entiende 'desde el 
principio del programa hasta ...'; si se omite el segundo numero, se entiende '... hasta el final del 
programa'. Asf, 

DELETE -200 

borra las primeras Ifneas del programa, hasta la 200 inclusive. En cambio, 

DELETE 50- 

borra desde la Ifnea 50 en adelante. Finalmente, 

DELETE 

borra el programa complete 

Palabras clave asociadas: CHAIN, MERGE, RENUM. 

DERR 

Sintaxis: DERR 

Ejemplo: 

LOAD "xyz.abc" 

XYZ .ABC not found Ready 

PRINT DERR 

146 

Funcion. Toma como valor el ultimo codigo de error detectado por el sistema de archivo en 
disco. Se puede utilizar el valor de DERR para determinar que error se ha producido. Vease en 
el capftulo 'Para su referenda ... ' la lista de los mensajes de error. 

Palabras clave asociadas: ERL, ERR, ERROR, ON ERROR GOTO, RESUME. 

DI 

Sintaxis: DI 
Ejemplo: 

10 CLS:TAG: EVERY 10 G0SUB 90 

20 X1=RND*320: X2=RND*320 

30 Y=200+RND*200:C$=CHR$(RND*255) 

40 FOR X=320-X1 TO 320+X2 STEP 4 

50 DI 

60 MOVE 320,0, 1:M0VE X-2,Y:M0VE X,Y 

70 PRINT " ";C$;: FRAME 

80 EI: NEXT: GOTO 20 

90 MOVE 320,0:DRAW X+8,Y-16,0:RETURN 

run 

Orden. Inhibe interrupciones (a excepcion de [ESC]) hasta que se las habilite explfcitamente con 
El o implfcitamente con el RETURN en el que termina la subrutina invocada como consecuencia 
de la interrupcion. 
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Notese que al entrar en una rutina de interrupcion se inhiben automaticamente todas las 
interrupciones de prioridad igual o inferior. 

Esta orden se utiliza para asegurar que el programa funcione sin interrupcion; por ejemplo, 
cuando dos rutinas estan compitiendo por el uso de recursos comunes. En el ejemplo anterior, 
el programa principal y la subrutina de interrupcion estan compitiendo por el uso de la pantalla 
grafica. 

En la parte 3 del capftulo 'Cuando usted guste...' daremos mas amplia informacion a este 
respecto. 

Palabras clave asociadas: AFTER, El, EVERY, REMAIN. 

DIM 

Sintaxis: DIM <lista de:< variable indexada>> 
Ejemplo: 

10 CLS 

20 DIM amigo$(5),telefono$(5) 

30 FOR n=l TO 5 

40 PRINT "Amigo numero:";n 

50 INPUT "Nombre ";amigo$(n) 

60 INPUT "Telefono ";telefono$(n) 

70 PRINT 

80 NEXT 

90 FOR n=l TO 5 

100 PRINT n;amigo$(n),telefono$(n) 

110 NEXT 

run 

Orden. DIMensiona listas. DIM hace una reserva de espacio para los elementos de la lista y 
especifica cual va a ser el maximo valor del fndice. BASIC requiere que se le informe del tamano 
que debe reservar para las listas; sin embargo, permite el manejo de listas no dimensionadas (es 
decir, no declaradas con una orden DIM) a condicion de que el fndice no sobrepase el valor 10. 

Una lista es una 'variable indexada', lo que quiere decir que se utiliza un solo nombre de variable 
para representar varios elementos; cada elemento esta identificado por su 'indice'. Las listas 
pueden ser controladas facilmente mediante bucles de tipo FOR ... NEXT, identificando el fndice 
con la variable del contador del bucle. 

Observese que el valor mfnimo del fndice (esto es, el primer elemento utilizable) es el cero. 

Un vector es una lista monodimensional. Tambien se pueden utilizar listas multidimensionales 
(matrices). Por ejemplo, una lista tridimensional se dimensionaria con 

DIM posicion$(20,20,20) 

y un elemento concreto seria 
posicion$ (4,5,6) 

Palabras clave asociadas: ERASE. 

DRAW 

Sintaxis: DRAW <coordenadax>, <coordenaday>[, [<tinta>][, <modo detinta>]] 
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Ejemplo: 

10 MODE 0:B0RDER 0:PAPER 0:INK 0,0 

20 x=RND*640:y=RND*400:z=RND*15 

30 DRAW x,y,z 

40 GOTO 20 

run 
Orden. Dibuja en la pantalla grafica una recta que va desde la posicion actual del cursor grafico 
hasta el punto de coordenadas x, y especificadas. Se puede especificar el color de <tinta) con el 
que se desea dibujar la recta (margen: a 15). 

El <modo de tinta> es opcional y determina el modo de interaccion entre la tinta con que se 
dibuja y la que ya esta en la pantalla grafica. Los cuatro modos son los siguientes: 

Normal 

1 X0R (OR exclusive*) 

2 AND 

3 OR 

Palabras clave asociadas: DRAWR, GRAPHICS PEN, MASK. 

DRAWR 

Sintaxis: DRAWR <incremento de x>, <incremento de y>[, [<tinta>][, <modo de tinta>]] 

Ejemplo: 

10 CLS:PRINT "escalera" 

20 MOVE 0,350: FOR n=l TO 8 

30 DRAWR 50,0 

40 DRAWR 0,-50 

50 NEXT:M0VE 348,0:FILL 3 

60 GOTO 60 

run 

Orden. Dibuja en la pantalla grafica una recta que va desde la posicion actual del cursor grafico 
hasta el punto especificado en coordenadas relativas por <incremento de x> e <incremento de 
y>. Se puede especificar el color de <tinta> con el que se desea dibujar (margen: a 15). 

El <modo de tinta> es opcional y determina el modo de interaccion entre la tinta con que se 
dibuja y la que ya esta en la pantalla grafica. Los cuatro modos son los siguientes: 

Normal 

1 X0R (OR exclusivo) 

2 AND 

3 OR 

Palabras clave asociadas: DRAW, GRAPHICS PEN, MASK. 

EDIT 

Sintaxis: EDIT <numero de l(nea> 
Ejemplo: 

EDIT 20 

Orden. Escribe en la pantalla la Ifnea especificada por <numero de l(nea> y la deja dispuesta 
para ser editada, con el cursor sobre ella. 
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Palabras clave asociadas: AUTO, LIST. 

EI 

Sintaxis: El 
Ejemplo: 

EI 

Orden. Habilita interrupciones que hayan sido inhibidas previamente con Dl. 

Si se inhiben las interrupciones en una subrutina de interrupcion, BASIC las habilita cuando 
encuentra el RETURN del final de la subrutina. 

En la parte 3 del capitulo titulado 'Cuando usted guste...' daremos mas amplia informacion 
acerca de las interrupciones. 

Palabras clave asociadas: AFTER, Dl, EVERY, REMAIN. 

ELSE 

(Vease IF.) 

END 

Sintaxis: END 
Ejemplo: 

END 

Orden. Termina la ejecucion del programa y devuelve el ordenador al modo directo. En un 
mismo programa se pueden incluir varias ordenes END; se supone un END implicito despues de 
la ultima Ifnea del programa. 

Palabras clave asociadas: STOP. 

ENT 

Sintaxis: ENT <numero de envolvente> [, <seccion de envolvente)] 

[, <seccion de envolvente>][ , <seccion de envolvente>] 

[, <seccion de envolvente>][ , <seccion de envolvente>] 

Ejemplo: 

10 ENT 1,10,-50,10,10,50,10 
20 SOUND 1,500,200, 10, ,1 
run 

Orden. Define la caracterfsticas de la envolvente de tono especificada por <numero de 
envolvente> (margen: de I a 15) e invocada como <envolvente de tono> en la orden 
SOUND. Si el <numero de envolvente> es negativo <margen de -I a -I5>, la envolvente se 
repite hasta el final de la <duracion> especificada en la orden SOUND. 

Cada <seccion de envolvente > puede constar de 2 o 3 parametros. Si se utilizan 3 parametros, 
tienen el significado siguiente: 
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< numero de escalones>, <altura de cada escalon>, <tiempo de pausa> 

Parametro I: <numero de escalones> 

Este parametro especifica en cuantas etapas queremos que la nota evolucione a lo largo de la 
duracion de la seccion de la envolvente. Por ejemplo, si una seccion de la nota ha de durar 10 
segundos, se la puede dividir en 10 etapas de I segundo cada una; en tal caso, el parametro 
< numero de escalones> tendra que ser 10. 

El margen de este parametro es de a 239. 

Parametro 2: <altura de cada escalon> 

En cada etapa, el tono puede variar con respecto al de la anterior en un numero de unidades 
comprendido entre - 1 28 y + 1 27. Las variaciones negativas representan aumentos del tono 
(tono mas agudo); las variaciones negativas reducen el tono (tono mas grave). El valor mfnimo 
del periodo de tono es 0. En el capitulo 'Para su referenda ...' se da la lista completa de los 
periodos de tono. 

Parametro 3: <tiempo de pausa> 

Este parametro especifica la duracion de cada escalon (intervalo entre cada dos saltos) en 
unidades de centesimas de segundo. El margen de valores es de a 255; esto significa que la 
duracion maxima de cada escalon es de 2.56 segundos (el se considera como 256). 

Si se utilizan 2 parametros, su significado es el siguiente: 

< periodo de tono>, <tiempo de pausa> 

Parametro I: < periodo de tono > 

Este parametro da un nuevo valor absoluto del periodo de tono. (Vease el parametro 2 de la 
orden SOUND.) 

Parametro 2: <tiempo de pausa> 

Este parametro especifica la duracion de escalon en unidades de centesimas de segundo. El 
margen de valores es de a 255, es decir, el valor maximo es 2.56 segundos, ya que el se 
considera como 256. 

General 

La suma de todos los <tiempos de pausa> no debe ser mayor que el parametro < duracion > 
de la orden SOUND; de lo contrario, el sonido habra concluido antes de que se hayan 
completado todas las etapas de la envolvente. (En tal caso, el ordenador ignora el resto del 
contenido de la envolvente.) 

Analogamente, si la duracion especificada en SOUND es mayor que la impuesta por la suma de 
todos los <tiempos de pausa>, la nota continuara sonando aunque se hayan terminado los 
escalones de la envolvente de tono, y lo hara con el tono correspondiente al de la ultima etapa 
de la envolvente. 

En una orden ENT se puede definir un maximo de 5 <secciones de envolvente> (cada una de 
las cuales puede constar de 2 o 3 parametros). 

La primera etapa de una envolvente de tono se ejecuta inmediatamente. 

Cada vez que se define una envolvente de tono, se anula la definicion anterior. 

Si se define un < numero de envolvente> sin especificar parametros para ninguna de sus 
secciones, se anula la definicion anterior. 

En la parte 2 del capftulo 'Cuando usted guste...' daremos mas informacion sobre las envolventes 
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de tono. 

Palabras clave asociadas: ENV, SOUND. 

ENV 

Sintaxis: ENV <numero de envolvente>[, <seccion de envolvente)] 

[, <seccion de envolvente>][ , <seccion de envolvente>] 

[, <seccion de envolvente>][ , <seccion de envolvente>] 
Ejemplo: 

10 ENV 1,15,-1,10,15,1,10 
20 SOUND 1,200,300,15,1 
run 

Orden. Define las caracterfsticas de la envolvente de volumen especificada por <numero de 
envolvente> (margen: de I a 15) e invocada como <envolvente de volumen> en la orden 
SOUND. 

Cada < seccion de envolvente > puede constar de 2 o 3 parametros. 

Si se utilizan 3 parametros, tienen el significado siguiente: 

<numero de escalones>, <altura de cada escalon), <tiempo de pausa> 

Parametro I: <numero de escalones> 

Este parametro especifica en cuantas etapas queremos que la nota evolucione antes de 
completar la seccion de la envolvente. Por ejemplo, si una seccion de la nota ha de durar 10 
segundos, se la puede dividir en 10 etapas de I segundo cada una; en tal caso, el parametro 
<numero de escalones> sera 10. 

El margen de este parametro es de a 1 27. 

Parametro 2: <altura de cada escalon > 

En cada etapa, el volumen puede variar con respecto al nivel anterior en un numero de unidades 
comprendido entre y 15. Estos 16 niveles de sonido son los mismos que se definen en la 
instruccion SOUND. Sin embargo, el margen del parametro <altura de cada escalon> es de — 
1 28 a + 1 27; el nivel del volumen vuelve cada vez que sobrepasa el 1 5. 

Parametro 3: <tiempo de pausa> 

Este parametro especifica la duracion de cada escalon en unidades de centesimas de segundo. El 
margen de valores es de a 255; esto significa que la duracion maxima de cada escalon es de 
2.56 segundos (el se considera como 256). 

Si se utilizan 2 parametros, su significado es el siguiente: 

< envolvente de hardware >, <periodo de envolvente > 

Parametro I: < envolvente de hardware > 

Este parametro especifica el valor que se debe enviar al registro de forma de envolventes del 
generador de sonido. 

Parametro 2: <periodo de envolvente > 

Este parametro especifica el valor que se debe enviar a los registros de periodo de envolventes 
del generador de sonido. 
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Para utilizar las envolventes de hardware es necesario que el usuario conozca el funcionamiento 
interno del generador de sonido. De no ser asf, le recomendamos que utilice las envolventes 
definidas por programa, incorporando un <tiempo de pausa> adecuado. 

General 

La suma de todos los <tiempos de pausa> no debe ser mayor que el parametro <duracion> 
de la orden SOUND; de lo contrario, el sonido habra concluido antes de que se hayan 
completado todas las etapas de la envolvente. (En tal caso, el ordenador ignora el resto del 
contenido de la envolvente.) 

Analogamente, si la duracion especificada en SOUND es mayor que la impuesta por la suma de 
todos los <tiempos de pausa>, la nota continuara sonando aunque se hayan terminado los 
escalones de la envolvente de tono, y lo hara con nivel de volumen igual al de la ultima etapa de 
la envolvente. 

En una orden ENV se puede definir un maximo de 5 <secciones de envolvente > (cada una de 
las cuales puede constar de 2 o 3 parametros). 

La primera etapa de una envolvente de volumen se ejecuta inmediatamente. 

Cada vez que se define una envolvente de volumen, se anula la definicion anterior. 

Si se define un <numero de envolvente> sin especificar parametros para ninguna de sus 
secciones, se anula la definicion anterior. 

En la parte 2 del capftulo 'Cuando usted guste...' daremos mas informacion sobre las envolventes 
de volumen. 

Palabras clave asociadas: ENT, SOUND. 

EOF 

Sintaxis: EOF 
Ejemplo: 

10 OPENIN "exl.bas" 

20 WHILE NOT EOF 

30 LINE INPUT #9,a$ 

40 PRINT a$ 

50 WEND 

60 CL0SEIN 

run 

Funcion. Comprueba si se ha alcanzado el final del fichero (End of File). Da el valor -I 
(verdadero) si no hay ningun fichero abierto o si se ha alcanzado el final del fichero; da (falso) 
en caso contrario. 

Palabras clave asociadas: OPENIN, CLOSEIN. 

ERASE 

Sintaxis: ERASE < lista de:<nombre de variable> > 

Ejemplo: 

DIM a(100),b$(100) 
ERASE a,b$ 
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Orden. Borra el contenido de una o varias listas y libera el espacio de memoria ocupado por 
ellas. 

Palabras clave asociadas: DIM. 

ERL 

Sintaxis: ERL 

Ejemplo: 

10 ON ERROR GOTO 30 

20 GOTO 1000 

30 PRINT "Error en la linea";ERL 

40 END 

run 

Funcion. Da el numero de la Ifnea en la que se ha detectado el ultimo error. En el programa 
ejemplo, el error esta en la Ifnea 20, y este es el numero generado por ERL en la linea 30. 

Palabras clave asociadas: DERR, ERR, ERROR, ON ERROR GOTO, RESUME. 

ERR 

Sintaxis: ERR 
Ejemplo: 

GOTO 500 

Line does not exist Ready 

PRINT ERR 

8 

Funcion. Da el numero del ultimo error detectado. En el capftulo titulado 'Para su referenda...' se 
da la lista de los mensajes de error. El programa ejemplo muestra que el error numero 8 es 'Line 
does not exist' ("no existe esa Ifnea"). 

Palabras clave asociadas: DERR, ERL, ERROR, ON ERROR GOTO, RESUME. 

ERROR 

Sintaxis: ERROR <expresion entera> 
Ejemplo: 

10 IF INKEYS="" THEN 10 ELSE ERROR 17 
run 

Orden. Invoca el error de numero especificado por <expresion entera>. En el capftulo 'Para su 
referenda.. .' se da la lista de los mensajes de error I a 32. BASIC trata el ERROR como si 
efectivamente lo hubiera detectado: salta a la rutina de gestion de errores (si la hay) y genera los 
valores correctos de ERRy ERL. 

La orden ERROR seguida de una <expresion entera> cuyo valor este entre 33 y 255 sirve para 
crear mensajes de error a medida de las necesidades del programador, como ilustra el siguiente 
ejemplo: 

10 ON ERROR GOTO 100 

20 INPUT "Escriba una letra ";a$ 
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30 IF LEN(A$)<>1 THEN ERROR 100 
40 GOTO 20 

100 IF ERR=100 THEN 110 ELSE 130 
110 PRINT CHR$(7) 

120 PRINT "Le dije que UNA letra!" 
130 RESUME 20 
run 
Palabras clave asociadas: ERL, ERR, ON ERROR GOTO, RESUME. 

EVERY 

Sintaxis: EVERY <periodo de tiempo>[, < numero de temporizador>] 

GOSUB < numero de l(nea> 
Ejemplo: 

10 EVERY 50,1 GOSUB 30 20 GOTO 20 

30 SOUND 1,20 

40 RETURN 

run 
Orden. Invoca una subrutina de BASIC a intervalos de tiempo regulares. El <periodo de tiempo) 
especifica el intervalo en unidades de 0.02 s (cincuentavos de segundo). 

El < numero del temporizador> (margen de a 3) especifica cual de los cuatro cronometros se 
debe utilizar. El temporizador numero 3 tiene la prioridad mas alta; el numero (que es el 
implfcito), la mas baja. 

Cada uno de los cuatro cronometros puede tener una subrutina asociada. 

En la parte 3 del capftulo 'Cuando usted guste...' daremos mas amplia informacion acerca de las 
interrupciones. 

Palabras clave asociadas: AFTER, REMAIN. 

EXP 

Sintaxis: EXP (<expresion numerica>) 

Ejemplo: 

PRINT EXP(6.876) 
968.743625 

Funcion. Calcula el numero e elevado a la potencia dada por <expresion numerica>. El numero 
e es la base de los logaritmos neperianos, aproximadamente igual a 2.7182818. 

Palabras clave asociadas: LOG. 

FILL 

Sintaxis: FILL <tinta> 
Ejemplo: 

10 MODE 

20 FOR n=l TO 500 

30 PRINT"0"; 

40 NEXT 

50 colorpluma=2+RND*13 
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60 FILL colorpluma 

70 GOTO 50 

run 

Orden. Rellena una region de la pantalla grafica. Los Ifmites de la region son rectas dibujadas con 
la tinta de la pluma de graficos actual o con la tinta utilizada para rellenar (margen de a 1 5). 

El rellenado se realiza partiendo de la posicion actual del cursor grafico. Si esta posicion esta en 
un Ifmite, no se produce rellenado alguno. 

Palabras clave asociadas. GRAPHICS PEN. 

Nota del revisor (2008): La orden FILL esta disponible en los Amstrad CPC6I28 y en los 
CPC664, pero no en el modelo inicial CPC464. 

FIX 

Sintaxis: FIX ( <expresion numerica> ) 

Ejemplo: 

PRINT FIX(9. 99999) 
9 

Funcion. Da la parte entera de la <expresion numerica>, ignorando su parte decimal. 
Palabras clave asociadas: CI NT, INT, ROUND. 

P2V 

Vease DEF FN. 

FOR 

Sintaxis: FOR <variable sencilla> = <principio> TO <fin> [STEP <salto>] 

Ejemplo: 

10 FOR n=2 TO 8 STEP 2 

20 PRINT n; 

30 NEXT n 

40 PRINT ", y ocho dieciseis" 

run 

Orden. Ejecuta el grupo de instrucciones comprendidas entre FORy NEXT un numero dado de 
veces, incrementando el valor de la variable de control <variable del contador> en un numero 
especificado por <salto> desde (principio) hasta <fin>. Si no se especifica ningun valor de 
<salto> para STEP, se supone el I . 

El <salto> puede ser una <expresion numerica>. Si su valor es negativo, el parametro 
<principio> tiene que ser mayor que el parametro <fin>, pues de no ser asf la variable del 
contador no sera modificada. 

Los bucles FOR ... NEXT pueden ser 'anidados', es decir, programados uno dentro de otro. 

No es necesario especificar el nombre de la variable a continuacion de NEXT, ya que BASIC 
determina automaticamente a que FORcorresponde cada NEXT 'anonimo'. 

Palabras clave asociadas: NEXT, STEP, TO. 
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FRAME 

Sintaxis: FRAME 
Ejemplo: 

10 MODE 

20 PRINT "sin FRAME" 

30 TAG 

40 MOVE 0,200 

50 FOR x=0 TO 500 STEP 4 

60 IF f=l THEN FRAME 

70 MOVE x,200 

80 PRINT " ";CHR$(143); 

90 NEXT 

100 IF f=l THEN RUN 

110 CLS 

120 TAGOFF 

130 PRINT "con FRAME" 

140 f=l 

150 GOTO 30 

run 



Orden. Sincroniza la escritura de caracteres graficos en la pantalla con el retorno del haz en el 
monitor. El efecto global es hacer que el movimiento de simbolos por la pantalla sea mas suave, 
sin parpadeo ni discontinuidad. 

Palabras clave asociadas: TAG, TAGOFF. 

Nota del revisor (2008): La orden FRAME esta disponible en los Amstrad CPC6I28 y en los 
CPC664, pero no en el modelo inicial CPC464. En los CPC464 se puede imitar, usando en su 
lugar: 

CALL &BD19 

FRE 

Sintaxis: FRE (<expresion numerica>) 

FRE (<expresion literal>) 

Ejemplo: 

PRINT FRE(0) 
PRINT FRE("") 

Funcion. Da el espacio libre de memoria utilizable por BASIC. En la forma FRE ("") realiza una 
'limpieza de memoria' antes de dar el numero de bytes libres. 

Nota. BASIC solamente utiliza el primer banco de memoria, es decir, los primeros 64K. 

Palabras clave asociadas: HIMEM, MEMORY. 

GOSUB 

Sintaxis: GOSUB < numero de l(nea> 
Ejemplo: 

GOSUB 210 
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Orden. Invoca una subrutina de BASIC; es decir, reconduce el programa hacia el <numero de 
l(nea> especificado. El final de la subrutina estara indicado por la orden RETURN; cuando se 
llega a ella, el programa retorna a la instruccion siguiente al GOSUB que invoco la subrutina. 

Palabras clave asociadas: RETURN. 

GOTO 

Sintaxis: GOTO <numero de l(nea> 
Ejemplo: 

GOTO 90 

Orden. Hace que la ejecucion del programa salte a la Ifnea especificada. 
Palabras clave asociadas: ninguna. 

GRAPHICS PAPER 

Sintaxis: GRAPHICS PAPER <tinta> 
Ejemplo: 

10 MODE 

20 MASK 15 

30 GRAPHICS PAPER 3 

40 DRAW 640,0 

run 

Orden. Especifica la <tinta> del papel de la pantalla de graficos, es decir, el color de fondo sobre 
el que se dibujan los graficos. Cuando se dibujan Ifneas continuas, el papel grafico se hace 
invisible. En el programa ejemplo, la orden MASK hace que la recta que se dibuja sea discontinua 
y que, por lo tanto, el papel grafico se pueda ver debajo de ella. 

La tinta del papel grafico (margen de a 1 5) se utiliza tambien como fondo de los caracteres que 
se escriben mediante TAG y para retehir la pantalla grafica cuando no se especifica otra tinta tras 
la instruccion CLG. 

Palabras clave asociadas: CLG, GRAPHICS PEN, INK, MASK, TAG, TAGOFF. 

GRAPHICS PEN 

Sintaxis: GRAPHICS PEN [<tinta>] [, <modo de fondo>] 
Ejemplo: 

10 MODE 

20 GRAPHICS PEN 15 

30 MOVE 200,0 

40 DRAW 200,400 

50 MOVE 639,0 

60 FILL 15 

run 

Orden. Especifica la <tinta> con la que en lo sucesivo se van a dibujar rectas y puntos. El 
<modo de fondo > puede ser: 
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Fondo opaco 

1 Fondo transparente 

(El fondo transparente afecta al papel grafico de los caracteres escritos con TAG y a los espacios 
que quedan entre los trazos de las Ifneas discontinuas.) 

Se puede omitir cualquiera de los dos parametros, pero no ambos. Si se omite un parametro, la 
caracteristica controlada por el permanece inalterada. 

Palabras clave asociadas: GRAPHICS PAPER, INK, MASK, TAG, TAGOFF. 

HEX$ 

Sintaxis: HEX$ ( <expresion entera> [ , <anchura del campo>]) 
Ejemplo: 

PRINT HEX$ (255,4) 
OOFF 

Funcion. Produce una cadena literal que es la version hexadecimal de la <expresion entera>. La 
longitud de la cadena es la especificada por el parametro <anchura de campo> (margen de a 
1 6). Si la longitud es demasiado pequeha, la cadena resultante no se trunca, sino que consta de 
todos los caracteres necesarios. 

El valor de la <expresion entera> tiene que estar comprendido entre -32768 y +65535. 

Palabras clave asociadas: BIN$, DEC$, STR$, UNT. 

HIMEM 

Sintaxis: HIMEM 
Ejemplo: 

PRINT HIMEM 
42619 

Funcion. Da la direccion de la posicion de memoria mas alta accesible a BASIC (la cual puede ser 
modificada con la orden MEMORY). 

Nota. BASIC solamente utiliza el primer banco de memoria, es decir, los primeros 64K. 

Palabras clave asociadas: FRE, MEMORY, SYMBOL, SYMBOL AFTER. 

IF 

Sintaxis: IF <expresion I6gica> THEN <opcion> [ELSE <opcion>] 
Ejemplo: 

10 MODE 1 

20 x=CINT(RND*100) 

30 PRINT "Adivine mi numero (de a 100)" 

40 INPUT n 

50 IF n<x THEN PRINT n;"es demasiado bajo 

60 IF n>x THEN PRINT n;"es demasiado alto 9-0 

70 IF n=x THEN 80 ELSE c=c+l:G0T0 40 

80 PRINT "Muy bien. Lo ha conseguido en"; 

90 PRINT c+l;"intentos!" 
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run 

Orden. Determina si la < expresion I6gica> tiene el valor 'verdadero'. Si es asf, ejecuta la primera 
<opcion>. Si la < expresion I6gica> tiene el valor 'falso', ejecuta la <opcion> especificada 
despues de ELSE; si no se ha incluido ELSE, BASIC pasa a la siguiente Ifnea del programa. 

Las ordenes IF THEN ... se pueden anidar, sin mas limite que la longitud de la Ifnea. La orden (o 
la serie de ordenes anidadas) termina en el final de la Ifnea, de modo que no es posible poner en 
la misma Ifnea instrucciones que sean independientes de la orden IF THEN . 

Si la <opcion> especificada consiste en un salto de Ifnea, la orden puede tener cualquiera de las 
tres formas siguientes: 

IF a=l THEN 100 
IF a=l GOTO 100 
IF a=l THEN GOTO 100 

Palabras clave asociadas: ELSE, GOTO, THEN. 

INK 

Sintaxis: INK <tinta>, <color> [, <color>] 
Ejemplo: 

10 MODE 1: PAPER 0:PEN 1 

20 FOR p=0 TO 1 

30 FOR i=0 TO 26 

40 INK p,i 

50 LOCATE 16,12:PRINT "ink";p;",";i 

60 FOR t=l TO 400:NEXT t,i,p 

70 INK 0,1: INK 1,24:CLS 

run 

Orden. Asigna uno o dos colores a la <tinta> dada. El parametro <tinta> es el numero de 
referenda de la tinta (margen de a 1 5), por el que se la cita en las ordenes PEN y PAPER. El 
primer <color> debe ser una expresion entera cuyo valor este comprendido entre y 26. Si se 
incluye el segundo < color >, la tinta alterna entre los dos colores, a una velocidad que se 
controla con la orden SPEED INK. 

Palabras clave asociadas: GRAPHICS PAPER, GRAPHICS PEN, PAPER, PEN, SPEED INK. 

INKEY 

Sintaxis: INKEY ( < expresion entera>) 
Ejemplo: 

10 IF INKEY(55)<>32 THEN 10 

20 PRINT "Ha pulsado [SHIFT] y V" 

30 CLEAR INPUT 

run 

Funcion. Examina el teclado para determinar si se ha pulsado una tecla determinada. La 
exploracion se realiza una vez cada 0.02 s. 

Este funcion es util para averiguar si se ha pulsado cierta tecla, comprobando si el numero 
generado por INKEY es - 1 (el cual es independiente de la situacion de [SHIFT] y [CTRL]). 
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El ejemplo anterior detecta cuando se pulsa V (tecla numero 55) con [SHIFT] y sin [CTRL]. El 
esquema de la numeracion de las teclas esta grabado en la carcasa del ordenador, a la derecha 
del teclado, e impreso en el capftulo titulado 'Para su referenda...'. 

Los valores generados por INKEY en funcion de la situacion de las teclas [SHIFT] y [CTRL] son 
los siguientes: 

Valor generado [SHIFT] [CONTROL] Tecla especificada 

-1 Indiferente Indiferente No pulsada 

No pulsada No pulsada Pulsada 

32 Pulsada No pulsada Pulsada 

128 No pulsada Pulsada Pulsada 

160 Pulsada Pulsada Pulsada 

Palabras clave asociadas: CLEAR INPUT, INKEY$, JOY. 

INKEY$ 

Sintaxis: INKEY$ 
Ejemplo: 

10 CLS 

20 PRINT "El i ja Si o No (S/N):" 

30 a$=INKEY$ 

40 IF a$="" THEN 30 

50 IF a$="s" OR a$="S" THEN 80 

60 IF a$="n" OR a$="N" THEN 90 

70 GOTO 30 

80 PRINT "Ha respondido SI":END 

90 PRINT "Ha respondido NO" 

run 

Funcion. Examina el teclado para determinar si se ha pulsado alguna tecla; de ser asf, genera una 
cadena literal consistente en el caracter correspondiente a la tecla pulsada. Si no se ha pulsado 
ninguna tecla, genera la cadena vacfa. En el programa ejemplo, las Ifneas 30 y 40 forman un bucle 
que no deja de repetirse mientras no se pulse una tecla. 

Palabras clave asociadas: CLEAR INPUT, INKEY. 

INP 

Sintaxis: INP (<numero de puerta>) 

Ejemplo: 

PRINT INP (&FF77) 
255 

Funcion. Da el valor de entrada lefdo en la direccion de entrada/salida especificada por el 
parametro < numero de puerta>. 

Palabras clave asociadas: OUT, WAIT. 

INPUT 

Sintaxis: INPUT [#<expresion de numero de canal >,[;][< cadena literal entre comillas> 
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<separador>] < lista de: < variable >> 
Ejemplo: 

10 MODE 1 

20 INPUT "Escriba los dos factores (separados por una coma): ",a,b 

30 PRINT a;"por";b;"es";a*b 

40 GOTO 20 

run 

Orden. Capta una entrada de datos por el canal especificado (Por el #0, si no se especifica 
ninguno). 

El primer signo de punto y coma [;] es opcional e inhibe la funcion de retorno del carro/avance 
de Ifnea que de otra forma se producirfa al terminar de ejecutarse la instruccion. 

El <separador> tiene que ser una coma o un punto y coma. El punto y coma hace que se 
escriba el signo de interrogacion; la coma lo impide. 

Si el dato introducido es de tipo incorrecto (por ejemplo, cuando se escribe la letra O en lugar 
del numero en la captacion de un dato numerico), BASIC responde con el mensaje: 

?Redo from Start 

y cualquier otro texto que se haya programado. 

Toda introduccion de datos a traves del teclado debe terminar con la pulsacion de la tecla 
[RETURN]. 

Palabras clave asociadas: LINE INPUT. 

INSTR 

Sintaxis: INSTR ([<posicion de partida>, ]<cadena en la que se busca>, <cadena buscada>) 

Ejemplo: 

10 CLS:F0R n=l TO 26 

20 alfabeto$=alfabeto$+CHR$(n+64) 

30 NEXT 

40 INPUT "Escriba una letra: ",a$ 

50 b$=UPPERS(a$) 

60 PRINT b$;" es la letra numero"; 

70 PRINT INSTR(alfabeto$,b$); 

80 PRINT "del al fabeto" : PRINT 

90 GOTO 40 

run 

Funcion. Determina si la <cadena buscada> esta contenida en la <cadena en la que se busca>. 
Si lo esta, da la posicion del caracter de la <cadena en la que se busca> en el que se ha 
producido la primera coincidencia. Si no lo esta, da el numero 0. 

El parametro opcional < posicion de partida> indica en que lugar de la <cadena en la que se 
busca> debe empezar la busqueda; debe ser una expresion entera que de un valor 
comprendido entre I y 255. 

Palabras clave asociadas: ninguna. 
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INT 

Sintaxis: INT <expresion numerica> ) 

Ejemplo: 

PRINT INT(-1.995) 
-2 

Funcion. Redondea el valor de la <expresion numerica> al numero entero inferior, 
despreciando la parte decimal. Da el mismo valor que FIX cuando el argumento es positivo, 
pero una unidad menos que FIX cuando el argumento es negativo y no entero. 

Palabras clave asociadas: CINT, FIX, ROUND. 

JOY 

Sintaxis: JOY ( <expresion entera>) 
Ejemplo: 

10 PRINT "Para detener el programa "; 

20 PRINT "accione el joystick" 

30 IF J0Y(0)<>0 THEN END 

40 GOTO 10 

run 

Funcion. Lee bit a bit la situacion del joystick especificado por la <expresion entera> (que debe 
valer o I ). Genera un valor decimal segun la siguiente tabla: 



Bit Decimal 


Arriba 


1 


1 Aba jo 


2 


2 Izquierda 


4 


3 Derecha 


8 


4 Disparo 2 


16 


5 Disparo 1 


32 



Asi, en el programa ejemplo, si el boton principal de disparo (Disparo 2) del primer joystick esta 
accionado mientras la empunadura esta inclinada hacia la izquierda, la funcion JOY(0) da el 
numero decimal 20, que es la suma de 1 6 (Disparo 2) mas 4 (Izquierda). 

En el capitulo 'Para su referenda...' daremos mas informacion acerca de los joysticks. 

Palabras clave asociadas: CLEAR INPUT, IN KEY. 

KEY 

Sintaxis: KEY <codigo expansible>, <expresion literal> 
Ejemplo: 

KEY 11, "border 13:paper 0:pen l:ink 0,13: ink l,0:mode 2:1 ist"+CHR$(13) 
y ahora pulse la tecla [INTRO]. 

Orden. Asigna la <expresion literal > al <codigo expansible > especificado. El sistema maneja 32 
codigos expansibles, del al 3Y; identificados por los codigos de tecla 1 28 a 1 59. Los codigos de 
tecla del 128 (generado por la tecla del teclado numerico) al 140 (generado por la tecla 
[INTRO] con [CONTROL]) tienen asignadas implfcitamente las funciones de escribir los dfgitos 
del al 9, el punto, [RETURN] y RUN"[RETURN] (para operacion con cinta), respectivamente, 
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pero se les pueden asignar otras <expresiones literales> diferentes con KEY. Los codigos 
expansibles I 3 a 3 I (codigos de tecla 141 a 159) tienen asignada implfcitamente la cadena vacia, 
pero se los puede expandir con KEY para luego asignarlos a teclas concretas con KEY DEF. 

El parametro <codigo expansible> incluido en la orden KEY puede estar en el margen de a 
3 1 , o bien en el margen 1 28 a 1 59 para reflejar directamente codigos de tecla. (Vease la 
ilustracion del capftulo 'Parasu referenda.. .'.) 

Las <expresiones literales> con las que se expandan los codigos expansibles pueden ocupar 
como maximo un total de 1 20 caracteres. Si se intenta sobrepasar ese Ifmite se produce el error 
'Improper argument' ('argumento inadecuado', error numero 5). 

Palabras clave asociadas: KEY DEF. 

KEYDEF 

Sintaxis: KEY DEF <numero de tecla>, <repetir>[ , <normal> [, <shift> [, <control>] ] 1 

Ejemplo: 

KEY 159, "esta es la tecla TAB" 
KEY DEF 68,1,159 

Despues de escribir estas ordenes, pulse la tecla [TAB]. 

Orden. Define los codigos de tecla que van a ser generados por la tecla de numero especificado. 
El < numero de tecla> tiene que estar en el margen de a 79 (veanse los numeros de tecla en 
el diagrama grabado a la derecha del teclado, o bien el esquema del capftulo 'Para su referenda.. . 
'). En la definicion se pueden incluir los codigos de tecla que deben ser generados por la tecla 
cuando se la pulsa sola y cuando se la pulsa en combinacion con [MAYS] y [CONTROL]. Todos 
estos parametros son opcionales. 

El parametro <repetir> puede tener los valores I (para que la tecla sea de repeticion) o (para 
que no lo sea). La velocidad de repeticion se puede definir con SPEED KEY. 

En el ejemplo anterior, primero se asigna una cadena literal al codigo 1 59 (equivalente al codigo 
expansible 3 1 ), y luego se especifica que la tecla numero 68 (la tecla [TAB]) debe ser de 
repeticion ( I ) y generar el codigo 1 59 cuando se la pulse sola. 

La situacion normal se restaura, en el ejemplo anterior, mediante la orden: 

KEY DEF 68,0,9 

ya que el 9 es el codigo ASCII normalmente generado por [TAB]. 
Palabras clave asociadas: KEY, SPEED KEY. 

LEFTS 

Sintaxis: LEFT$ (<expresion literal>, <longitud deseada>) 

Ejemplo: 

10 CLS 

20 a$="AMSTRAD" 

30 FOR n=l TO 7 

40 PRINT LEFT$(a$,n) 

50 NEXT 

run 
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Funcion. Produce una cadena que consta del numero de caracteres dado por <longitud 
deseada> (margen de a 255) tornados de la izquierda de la <expresion literal >. Si la longitud 
de la <expresion literal > es menor que la < longitud deseada>, la cadena producida es la 
<expresion literal > completa. 

Palabras clave asociadas: MID$, RIGHT$. 

LEN 

Sintaxis: LEN (<expresion literal >) 
Ejemplo: 

10 LINE INPUT "Escriba una frase: ",a$ 
20 PRINT "La frase tiene"; 
30 PRINT LEN(a$);"caracteres." 
run 

Funcion. Da la longitud de la <expresion literal>, es decir, el numero de caracteres de que 
consta esta. 

Palabras clave asociadas: ninguna. 

LET 

Sintaxis: LET <variable> = <expresion> 
Ejemplo: 

LET x=100 

Orden. Asigna un valor a una variable. Es una reliquia de las primeras versiones de BASIC, 
innecesaria en el BASIC de AMSTRAD. En el ejemplo anterior habrfa bastado con escribir: 

x=100 
Palabras clave asociadas: ninguna. 

LINE INPUT 

Sintaxis: LINE INPUT [#<expresion de numero de canal>,] [;] 

[<cadena entre comillas> <separador>] <variable literal> 

Ejemplo: 

10 LINE INPUT "Escriba una lfnea de texto: ",a$ 

20 CLS 

30 PRINT "La variable a$ es igual a: " 

40 PRINT a$ 

run 

Orden. Acepta la introduccion de una lfnea entera de texto por el canal especificado (o por el 
#0, si no se especifica ninguno). El primer signo de punto y coma [;] es opcional y, si se lo 
incluye, inhibe el retorno del carro/avance de lfnea que de otra forma se realizarfa al terminar de 
ejecutarse la orden. 

El <separador> tiene que ser una coma o un punto y coma. El punto y coma hace que se 
escriba el signo de interrogacion; la coma lo impide. 
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La captacion de datos a traves del teclado debe terminar con la pulsacion de la tecla [RETURN]. 

La captacion de datos por el canal #9 (disco o cinta) termina cuando se recibe un caracter de 
retorno del carro o cuando se han recibido 255 caracteres (lo que antes ocurra). 

Palabras clave asociadas: INPUT. 

LIST 

Sintaxis: LIST [<margen de numeros de l(nea>] [,<expresion de numero de canal>] 
Ejemplo: 

LIST 100-1000, #1 

Orden. Envfa el listado de las Ifneas especificadas al canal especificado. El canal implfcito es el #0. 
La impresora es el canal #8. La accion de listar se puede suspender momentaneamente 
pulsando [ESC] una vez, tras lo cual se la puede reanudar pulsando la barra espaciadora o 
abandonar definitivamente pulsando [ESC] por segunda vez. 

Si se omite el primer numero de <margen de numeros de l(nea>, se entiende 'desde el 
principio del programa hasta ... '; si se omite el segundo numero, se entiende ... hasta el final del 
programa'. Asf, 

LIST -200 

lista las primeras lineas del programa, hasta la 200 inclusive. En cambio, 

LIST 50- 

lista desde la Ifnea 50 en adelante. Finalmente, 

LIST 

lista el programa complete 

Palabras clave asociadas: ninguna. 

LOAD 

Sintaxis: LOAD <nombre de fichero >[,<expresion de direccion de memoria>] 
Ejemplo: 

LOAD "fichero. xyz",&2AF8 

Orden. Lee un programa de BASIC grabado en disco y lo carga en la memoria, reemplazando al 
actual. Si se especifica la <expresion de direccion de memoria> opcional, LOAD carga un 
fichero binario en esa direccion, en lugar de hacerlo en la direccion a partir de la cual se lo 
grabo. 

Los programas de BASIC protegidos no se pueden cargar por este metodo, pues el ordenador 
los borra inmediatamente de la memoria. Esos programas deben ser cargados con RUN o 
CHAIN. 

Palabras clave asociadas: CHAIN, CHAIN MERGE, MERGE, RUN, SAVE. 

LOCATE 

Sintaxis: LOCATE [#<expresion de numero de canal>, ]<coordenadax>, <coordenaday> 
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Ejemplo: 

10 MODE 1 

20 FOR n=l TO 20 

30 LOCATE n,n 

40 PRINT CHR$(143);"posicion"; 

50 PRINT n;",";n 

60 NEXT 

run 

Orden. Coloca el cursor de texto del canal indicado en la posicion especificada por las 
coordenadas x,y. La posicion 1,1 es el extremo superior izquierdo de la ventana. El canal #0 es 
el canal implfcito. 

Palabras clave asociadas: WINDOW. 

LOG 

Sintaxis: LOG (<expresion numerica>) 
Ejemplo: 

PRINT LOG (9999) 
9.21024037 

Funcion. Calcula el logaritmo natural o neperiano de la <expresion numerica>, la cual debe ser 
mayor que cero. 

Palabras clave asociadas: EXP, LOG 1 0. 

LOG10 

Sintaxis: LOG 10 (<expresion numerica> ) 
Ejemplo: 

PRINT L0G10(9999) 
3.99995657 

Funcion. Calcula el logaritmo decimal de la <expresion numerica>, la cual debe ser mayor que 
cero. 

Palabras clave asociadas: EXP, LOG. 

LOWERS 

Sintaxis: LOWERS (<expresion literal >) 
Ejemplo: 

10 a$="0BSERVE C0M0 SE CONVIERTEN LAS LETRAS A " 

20 PRINT L0WER$(a$+"MINUSCULAS") 

run 

Funcion. Da una cadena literal que es copia de la <expresion literal> especificada, pero 
convirtiendo las letras mayusculas en minusculas y dejando inalterados los restantes caracteres. 
Esta funcion es util en el proceso de datos que puedan contener minusculas mezcladas con 
mayusculas. 
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Palabras clave asociadas: UPPER$. 

MASK 

Sintaxis: MASK [<expresion entera>][, <situacion del primer punto>] 
Ejemplo: 

10 MODE 0:INK 5,21: INK 8,16 

20 MOVE -100*RND,400*RND 

30 WHILE XP0S<640 

40 FOR x=l TO 8 

50 MASK 2~(8-x) 

60 DRAWR 32,0,x,l:M0VER -32,0 

70 NEXT 

80 MOVER 34,0 

90 WEND: GOTO 20 

run 

Orden. Define una 'mascara' o plantilla que se puede utilizar en el dibujo de rectas. La expresion 
entera> (margen de a 255) determina la situacion de los diversos bits de cada grupo de 8 
pixels adyacentes: para pixel apagado, I para pixel iluminado. 

El parametro <situacion del primer punto> determina si el primer punto de la recta debe ser 
iluminado (I) o no (0). 

Se puede omitir cualquiera de los dos parametros, pero no ambos. La situacion de la 
caracterfstica correspondiente al parametro omitido permanece inalterada. 

Palabras clave asociadas: DRAW, DRAWR, GRAPHICS PAPER, GRAPHICS PEN. 

MAX 

Sintaxis: MAX (<listade: < expresion numerica>>) 
Ejemplo: 

10 n=66 

20 PRINT MAX(l,n,3,6,4,3) 

run 

66 

Funcion. Da el valor maximo de los incluidos en la <lista de:<expresion numerica>>. 
Palabras clave asociadas: MIN. 

MEMORY 

Sintaxis: MEMORY <expresion de direccion de memoria> 
Ejemplo: 

MEMORY &20AA 

Orden. Determina el espacio de memoria utilizable por BASIC al fijar la direccion de su Ifmite 
superior. 

Nota. BASIC solamente utiliza el primer banco de memoria, es decir, los primeros 64K. 

Palabras clave asociadas: FRE, HIMEM, SYMBOL, SYMBOL AFTER. 
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MERGE 

Sintaxis: MERGE <nombre del fichero> 
Ejemplo: 

MERGE "nuevopro.bas" 

Orden. Lee un programa grabado en disco y lo superpone al actualmente almacenado en la 
memoria. 

Las Ifneas del programa leido se superponen y sustituyen a las que hubiera en el antiguo con el 
mismo numero. 

Los ficheros protegidos (grabados con ,p) no pueden ser mezclados por este procedimiento con 
el programa actual. 

Palabras clave asociadas: CHAIN, CHAIN MERGE, LOAD. 

MID$ 

Sintaxis: MID$ (<expresion literal>, <posicion de partida>[, <longitud de la subcadena>]) 
Ejemplo: 

10 MODE 1:Z0NE 3 

20 a$="MASSACHUSETTS" 

30 PRINT "Deletreame ";a$ 

40 PRINT "Vale ...":PRINT 

50 FOR n=l TO LEN(a$) 

60 PRINT MID$(a$,n,l), 

70 FOR t=l TO 700:NEXT t,n 

80 PRINT:PRINT 

90 INPUT "Ahora escriba listed otra palabra: ",a$ 

100 GOTO 50 

run 
Funcion. Genera una cadena literal copiada de la <expresion literal >. El numero de caracteres 
copiados es el dado por <longitud de la subcadena>; la copia empieza en el caracter 
especificado por <posicion de partida>. Si no se especifica la <longitud de la subcadena>, se 
copian todos los caracteres restantes, desde <posicion de partida> hacia la derecha. 

Si la <posicion de partida> es mayor que la longitud de la <expresion literal >, se genera la 
cadena vacfa. El margen de <posicion de partida> es de I a 255. El de < longitud de la 
subcadena> es de a 255. 

Palabras clave asociadas: LEFT$, RIGHT$. 

MID$ 

Sintaxis: MID$ (<variable literal>, <posicion de insercion>[, <longitud de cadena nueva>]) 

= <expresion de cadena nueva> 
Ejemplo: 

10 a$="Amstrad" 

20 MIDS(a$,3,2)="XX" 

30 PRINT a$ 

run 

AmXXrad 
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Orden. Reemplaza un numero de caracteres de la <variable literal>, dado por <longitud de 
cadena nueva>, con caracteres tornados de <expresion de cadena nueva>. La sustitucion 
empieza en <posicion de insercion>. 

Observese que cuando se utiliza MID$ como orden, su argumento debe ser una <variable 
literal >; no vale, pues, una cadena literal constante tal como "hola". 

Palabras clave asociadas: LEFT$, RJGHT$. 

MIN 

Sintaxis: MIN (<lista de:<expresion numerica>>) 

Ejemplo: 

PRINT MIN(3,6,2.999,8,9) 
2.999 

Funcion. Da el valor mfnimo de los incluidos en la <lista de: <expresion numerica> >. 
Palabras clave asociadas: MAX. 

MOD 

Sintaxis: <argumento> MOD <argumento> 
Ejemplo: 

PRINT 10 MOD 3 

1 

PRINT 10 MOD 5 



Operador. Da el resto de la division entera del primer <argumento> por el segundo. 
Palabras clave asociadas: ninguna. 

MODE 

Sintaxis: MODE <expresion entera> 
Ejemplo: 

10 m=m+l:IF m>2 THEN m=0 

20 MODE m 

30 PRINT"Este es el modo";m 

40 PRINT"Pulse una tecla." 

50 IF INKEY$="" THEN 50 ELSE 10 

run 

Orden. Cambia el modo de pantalla (0, I o 2) y la borra tinendola con la tinta numero (que 
puede no ser la tinta actualmente asignada al papel). Todas las pantallas de texto y graficas se 
restauran (coincidentes con la pantalla completa); los cursores de texto y grafico quedan en sus 
orfgenes respectivos. 

Palabras clave asociadas: ORIGIN, WINDOW. 
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MOVE 

Sintaxis: MOVE <coordenadax>, <coordenaday>[ , [<tinta>][, <modo de tinta>]] 
Ejemplo: 

10 MODE 1: TAG 

20 x=RND*800-100:y=RND*430 

30 MOVE x,y 

40 PRINT "Estoy aqui"; 

50 GOTO 20 

run 

Orden. Lleva el cursor grafico a la posicion absoluta especificada por las coordenadas x,y. Se 
puede utilizar el parametro opcional <tinta> para cambiar la tinta de la pluma grafica (margen 
a 1 5). 

El parametro opcional <modo de tinta> determina la futura forma de interaccion entre la tinta 
con la que se dibuje y la ya existente en la pantalla. Los cuatro modos son: 

Normal 

1 X0R (OR exclusive*) 

2 AND 

3 OR 

Palabras clave asociadas: MOVER, ORIGIN, XPOS, YPOS. 

MOVER 

Sintaxis: MOVER <incremento de x> , <incremento de y>[, [<tinta>][, <modo de tinta>]] 
Ejemplo: 

10 MODE 1:TAG:M0VE 0,16 

20 PRINT "primero se sube"; 

30 FOR n=l TO 8 

40 MOVER -56,16 

50 PRINT "sube";:NEXT:PRINT " y luego se baja"; 

60 FOR n=l TO 8 

70 MOVER -56,-16 

80 PRINT "baja";:NEXT 

run 

Orden. Lleva el cursor grafico a un punto cuya posicion, referida a la actual, viene dada por 
<incremento de x> e <incremento de y>. Se puede utilizar el parametro opcional <tinta> 
para cambiar la tinta de la pluma grafica (margen de a 1 5). 

El parametro opcional (modo de tinta) determina la futura forma de interaccion entre la tinta 
con la que se dibuje y la ya existente en la pantalla. Los cuatro modos son: 

Normal 

1 X0R (OR exclusivo) 

2 AND 

3 OR 

Palabras clave asociadas: MOVE, ORIGIN, XPOS, YPOS. 



Manual de Amstrad CPC 6 1 28 (revision 2008) - Pagina 1 46 



NEW 

Sintaxis: NEW 
Ejemplo: 

NEW 

Orden. Borra el programa de BASIC actualmente residente en la memoria. No se pierden las 
definiciones de teclas ni se modifican las caracterfsticas de la pantalla (MODE, PEN, PAPER, INK, 
etc.) ni se borra la pantalla. 

Palabras clave asociadas: ninguna. 

NEXT 

Sintaxis: NEXT [<lista de:< variable >>] 
Ejemplo: 

10 FOR a=l TO 3 

20 FOR b=0 TO 26 

30 MODE 1 

40 PEN a: BORDER b 

50 PRINT "pen";a;" border" ;b 

60 FOR c=l TO 500 

70 NEXT c,b,a 

run 

Orden. Senala el final del bucle FOR ... NEXT. La orden NEXT puede ser anonima o mencionar 
el nombre de la variable del FOR correspondiente. Observese en el ejemplo anterior que las 
variables de la lista deben estar en orden inverso al de sus correspondientes ordenes FOR, de 
modo que los bucles no queden solapados, sino anidados. 

Palabras clave asociadas: FOR, STEP, TO. 

NOT 

Sintaxis: NOT <argumento> 
Ejemplo: 

IF NOT THEN "juan"<"pepe" PRINT "verdadero" ELSE PRINT "falso" 

falso 

IF NOT "gato">"perro" THEN PRINT "verdadero" ELSE PRINT "falso" 

verdadero 

PRINT NOT -1 



PRINT NOT 

-1 

Operador. Realiza la negacion logica sobre enteros invirtiendo todos los bits del argumento. 

En la parte 2 el capitulo 'Cuando usted guste...' daremos mas amplia informacion sobre las 
operaciones logicas. 

Palabras clave asociadas: AND, OR, XOR. 
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ON BREAK CONT 

Sintaxis: ON BREAK CONT 
Ejemplo: 

10 ON BREAK CONT 

20 PRINT "El programa CONTinua aunque listed intente interrumpirlo con 

[ESC]": PRINT 
30 FOR t=l TO 1000: NEXT: GOTO 20 
run 

Orden. Inhibe la posibilidad de interrumpir el programa pulsando la tecla [ESC], pues intercepta 
la interrupcion y continua la ejecucion. Esta orden se debe utilizar con precaucion, ya que el 
programa no podra ser detenido mas que reinicializando la maquina; grabe el programa antes de 
ejecutarlo. 

Dentro de un programa, esta orden se anula con ON BREAK STOP. 

Palabras clave asociadas: ON BREAK GOSUB, ON BREAK STOP. 

ON BREAK GOSUB 

Sintaxis: ON BREAK GOSUB <numero de linea> 
Ejemplo: 

10 ON BREAK GOSUB 40 

20 PRINT "Programa funcionando" 

30 GOTO 20 

40 CLS:PRINT "Pulsando dos veces 

50 PRINT"se invoca la subrutina" 

60 FOR t=l TO 2000: NEXT 

70 RETURN 

run 

Orden. Provoca el salto a la subrutina especificada por <numero de l(nea> cuando se pulsa dos 
veces la tecla [ESC]. 

Palabras clave asociadas: ON BREAK CONT, ON BREAK STOP, RETURN. 

ON BREAK STOP 

Sintaxis: ON BREAK STOP 
Ejemplo: 

10 ON BREAK GOSUB 40 

20 PRINT "Programa funcionando" 

30 GOTO 20 

40 CLS:PRINT "Pulsando dos veces 

50 PRINT"se invoca la subrutina" 

60 FOR t=l TO 2000: NEXT 

65 ON BREAK STOP 

70 RETURN 

run 

Orden. Anula las ordenes ON BREAK CONT y ON BREAK GOSUB, permitiendo asi que el 
programa pueda ser interrumpido normalmente con la tecla [ESC]. En el programa ejemplo, la 
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orden ON BREAK GOSUB solo actua una vez, pues la Ifnea 65 de la rutina de interrupcion la 
anula. 

Palabras clave asociadas: ON BREAK CONT, ON BREAK GOSUB. 

ON ERROR GOTO 

Sintaxis: ON ERROR GOTO <numero de linea> 
Ejemplo: 

10 ON ERROR GOTO 60 

20 CLS:PRINT "Si detecto un error, "; 

30 PRINT "li stare el programa" 

40 FOR t=l TO 4000: NEXT 

50 GOTO 100 

60 PRINT "Hay un error en la lfnea"; 

70 PRINT ERL:PRINT:LIST 

run 

Orden. Provoca el salto a la Ifnea especificada cuando se detecta un error en el programa. 

La forma ON ERROR GOTO desactiva la gestion de errores programada por el usuario y 
activa la normal de BASIC. 

Vease tambien la orden RESUME. 

Palabras clave asociadas: DERR, ERL, ERR, ERROR, RESUME. 

ON <expresion> GOSUB 

Sintaxis: ON <selector> GOSUB <listade: <numero de l(nea>> 
Ejemplo: 

10 PAPER 0:PEN 1: INK 0,1 

20 CLS:PRINT "MENU DE 0PCI0NES" : PRINT 

30 PRINT "1. Cambiar borde":PRINT 

40 PRINT "2. Cambiar pluma":PRINT 

50 PRINT "3. Cambiar modo":PRINT 

60 INPUT "El i ja del 1 al 3: ",x 

70 ON x GOSUB 90,110,130 

80 GOTO 20 

90 b=b-l: IF b<0 THEN b=26 

100 BORDER b: RETURN 

110 p=p-l: IF p<2 THEN p=26 

120 INK l,p: RETURN 

130 m=m-l:IF m<0 THEN m=2 

140 MODE m: RETURN 

run 

Orden. Determina, en funcion del valor de < selector >, que subrutina de BASIC debe ser 
invocada. El margen de valores de < selector > es de a 255. La rutina elegida es la que se 
encuentra en la lista en el lugar indicado por <selector>. Asf, en el ejemplo anterior, si x= I , se 
invoca la rutina de la Ifnea 90; si x=2, la Ifnea I 10; y si x=3, la de la Ifnea 1 30. 

Si el valor de <selector> es cero o mayor que el numero de Ifneas citadas en la < lista de 
numeros de lfnea>, no se invoca ninguna subrutina. 
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Palabras clave asociadas: RETURN. 

ON <expresion> GOTO 

Sintaxis: ON <selector> GOTO <lista de: <numero de l(nea>> 
Ejemplo: 

10 CLS:PRINT "MENU DE 0PCI0NES" :PRINT 

20 PRINT "1. Listar programa" : PRINT 

30 PRINT "2. Editar y ampl iar" :PRINT 

40 PRINT "3. Catalogo del disco":PRINT 

50 INPUT "El i ja del 1 al 3: ",x 

60 ON x GOTO 80,90,100 

70 GOTO 10 

80 LIST 

90 AUTO 

100 CAT 

run 

Orden. Determina, en funcion del valor de < selector >, a que Ifnea del programa debe saltar la 
ejecucion. El margen de valores de <selector> es de a 255. La Ifnea elegida es la que se 
encuentra en la lista en el lugar indicado por < selector >. Asf, en el ejemplo anterior, si x= I se 
salta a la Ifnea 80; si x=2, a la Ifnea 90; y si x=3, a la Ifnea 1 00. 

Si el valor de <selector> es cero o mayor que el numero de lineas citadas en la < lista de 
numeros de lfnea>, no se produce el salto. 

Palabras clave asociadas: ON expresion GOSUB. 

ONSQGOSUB 

Sintaxis: ON SQ (<canal>) GOSUB <numero de linea> 
Ejemplo: 

10 ENV 1,15,-1,1 

20 ON SQ(1) GOSUB 60 

30 MODE 0:0RIGIN 0,0,200,440,100,300 

40 FOR x=l TO 13:FRAME:M0VE 330, 200, x 

50 FILL x:NEXT:G0T0 40 

60 READ s:IF s=0 THEN RESTORE: GOTO 60 

70 SOUND l,s,25,15,l 

80 ON SQ(1) GOSUB 60:RETURN 

90 DATA 50,60,90,100,35,200,24,500,0 

run 

Orden. Invoca la subrutina especificada cuando hay espacio libre en la cola de sonidos. El 
parametro <canal> deber ser una expresion entera que de uno de los siguientes valores: 

• I para el canal A 

• 2 para el canal B 

• 4 para el canal C 

En la parte 2 del capftulo 'Cuando usted guste...' daremos mas informacion sobre los sonidos. 
Palabras clave asociadas: RETURN, SOUND, SQ. 
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OPENIN 

Sintaxis: OPENIN <nombre de fichero> 

Ejemplo: 

10 REM abrir un fichero del disco para entrada 

20 OPENIN "datos": INPUT #9,a,a$ 

30 CL0SEIN:PRINT "Los dos valores son:" 

40 PRINT:PRINT a,a$ 

run 

Orden. Abre, en direccion de entrada, un fichero grabado en disco para hacerlo accesible al 
programa. El fichero tiene que ser de tipo ASCII. 

El programa anterior solo funciona si se ha creado previamente el fichero (por ejemplo, con el 
programa siguiente). 

Palabras clave asociadas: CLOSEIN, EOF, OPENOUT. 

OPENOUT 

Sintaxis: OPENOUT <nombre del fichero> 
Ejemplo: 

10 REM abrir un fichero en el disco para sal i da 

20 INPUT "Escriba un numero: ",a 

30 INPUT "Escriba una palabra: ",a$ 

40 OPENOUT "datos" 

50 WRITE #9,a,a$ 

60 CL0SE0UT: PRINT "Datos grabados en disco" 

run 

Orden. Abre, en direccion de salida, un fichero para su grabacion en disco. 
Palabras clave asociadas: OPENIN, CLOSEOUT. 

OR 

Sintaxis: <argumento> OR <argumento> 
Ejemplo: 

IF "juan"<"pepe" OR "perro">"gato" THEN PRINT "verdadero" ELSE PRINT "falso" 

verdadero 

IF "pepe"<"juan" OR "gato">"perro" THEN PRINT "verdadero" ELSE PRINT "falso" 

falso 

IF "juan"<"pepe" OR "gato">"perro" THEN PRINT "verdadero" ELSE PRINT "falso" 

Verdadero 

PRINT 1 OR 1 

1 

PRINT OR 



PRINT 1 OR 

1 

Operador. Realiza la operacion logica 'o' bit a bit entre enteros. El resultado es I a menos que 
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am bos bits sean O. 

Para mas amplia informacion sobre operaciones logicas, consulte la parte 2 del capftulo titulado 
'Cuando usted guste ... 

Palabras clave asociadas: AND, NOT, XOR. 

ORIGIN 

Sintaxis: ORIGIN <x> , <y> [, <izquierda>, <derecha>, <arriba>, <abajo>] 
Ejemplo: 

10 MODE 1:B0RDER 13:TAG 

20 ORIGIN 0,0,100,540,300,100 

30 GRAPHICS PAPER 3:CLG 

40 FOR x=550 TO -340 STEP -10 

50 MOVE x,206 

60 PRINT "Esta es una ventana grafica "; 

70 FRAME: NEXT: GOTO 40 

run 

Orden. Traslada el origen de graficos (nuevo punto 0,0) a la posicion especificada por <x> e 
<y>. 

Al mismo tiempo se pueden especificar las dimensiones de una ventana grafica dando los cuatro 
ultimos parametros (opcionales). Si estos parametros definen posiciones externas a la pantalla, el 
borde de la ventana sera el borde de la pantalla. 

Palabras clave asociadas: CLG. 

OUT 

Sintaxis: OUT <numero de puerta>, <expresion entera> 

Ejemplo: 

OUT &F8F4.&FF 

Orden. Envfa el valor de <expresion entera> (margen de a 255) a la direccion especificada por 
<numero de puerta> . 

Esta orden no debe ser utilizada si no se sabe cuales son sus efectos. 

Palabras clave asociadas: INP, WAIT. 

PAPER 

Sintaxis: PAPER [<expresion de numero de canal>, ] <tinta> 
Ejemplo: 

10 MODE 0:PEN 0: INK 0,13 

20 FOR p=l TO 15 

30 PAPER p:CLS 

40 LOCATE 7,12:PRINT "paper";p 

50 FOR t=l TO 500:NEXT t,p 

run 

Orden. Establece que tinta se va a utilizar para escribir el fondo (papel) de los caracteres. Si los 
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caracteres se envfan a la pantalla de texto, la celda se rellena con el color actual del papel antes 
de escribir el caracter (a menos que se haya elegido el modo transparente). 

Si se omite la <expresion de numero de canal > se supone el #0. 

El numero de tintas utilizables simultaneamente depende del modo de pantalla. 

Palabras clave asociadas: GRAPHICS PAPER, INK, PEN. 

PEEK 

Sintaxis: PEEK (<expresion de direccion de memoria>) 

Ejemplo: 

10 MODE 1:Z0NE 7 

20 WINDOW 1,40,1,3:WIND0W #1,1,40,4,25 

30 LOCATE 13,1:PRINT"MEM0RIA" 

40 PRINT:PRINT"Direccion" 

50 LOCATE 20,3:PRINT"Contenido" 

60 FOR n=0 TO 65535 

70 p=PEEK(n) 

80 PRINT #l,n,"(&";HEX$(n);")"; 

90 PRINT #l,TAB(20);p,"(&";HEX$(p);")" 

100 NEXT 

run 

Funcion. Da el contenido de la posicion de memoria especificada por el argumento, el cual debe 
estar en el margen de &0000 a &FFFF (0 a 65535). En todos los casos, el valor producido sera el 
contenido de la posicion de memoria de la RAM (no de la ROM) y estara entre &00 y &FF (entre 
y 255). 

Palabras clave asociadas: POKE. 

PEN 

Sintaxis: PEN [#<expresion de numero de canal >,][<tinta>][,< modo de fondo>] 
Ejemplo: 

10 MODE 0:PAPER 0:INK 0,13 

20 FOR p=l TO 15 

30 PEN p:PRINT SPACE$(47) ;"pen";p 

40 FOR t=l TO 500:NEXT t,p:G0T0 20 

run 
Orden. Establece la <tinta> (margen de a 15) con la que se escribiran los caracteres en lo 
sucesivo en el canal especificado (en el #0 si no se especifica ninguno). El parametro <modo de 
fondo> puede ser I (transparente) o (opaco). 

Se puede omitir cualquiera de los ultimos parametros, pero no ambos. La caracterfstica 
correspondiente al parametro omitido permanece inalterada. 

Palabras clave asociadas: GRAPHICS PEN, INK, PAPER. 

PI 

Sintaxis: PI 
Ejemplo: 
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PRINT PI 
3.14159265 

Funcion. Da el valor del numero K, relacion de la longitud al diametro de la circunferencia. 
Palabras clave asociadas: DEG, RAD. 

PLOT 

Sintaxis: PLOT <coordenadax>, <coordenaday>[,[<tinta>][ ,<modo detinta>]] 

Ejemplo: 

10 MODE 1:B0RDER 0:PAPER 0:PEN 1 

20 INK 0,0:INK 1,26: INK 2,13,26:DEG 

30 FOR x=l TO 360:0RIGIN 320,200 

40 DRAW 50*C0S(x),50*SIN(x),l 

50 PLOT 100*C0S(x),25*SIN(x):NEXT 

60 ORIGIN 0,0:t=TIME+700:WHILE TIME<t 

70 PLOT RND*640,RND*400:WEND 

80 PLOT RND*640,RND*400,2 

90 GOTO 90 

run 

Orden. Dibuja un punto en la pantalla grafica, en la posicion absoluta especificada por los 
parametros <coordenadax> y <coordenaday>. Tambien se puede especificar la <tinta> con 
la que se debe dibujar (margen de a 1 5). 

El parametro opcional <modo de tinta> determina la forma de interaccion entre la tinta con la 
que se dibuja y la ya presente en la pantalla. Los cuatro modos son: 

Normal 

1 X0R (OR exclusive*) 

2 AND 

3 OR 

Palabras clave asociadas: GRAPHICS PEN, PLOTR. 

PLOTR 

Sintaxis: PLOTR <incremento de x>, <incremento de y>[ , [<tinta> , <modo de tinta>]] 

Ejemplo: 

10 REM dibujo de rectas con las teclas del cursor 

20 BORDER 0:GRAPHICS PEN 1 

30 MODE 1:PL0T 320,200 

40 IF INKEY(0)=0 THEN PLOTR 0,1 

50 IF INKEY(1)=0 THEN PLOTR 1,0 

60 IF INKEY(2)=0 THEN PLOTR 0,-1 

70 IF INKEY(8)=0 THEN PLOTR -1,0 

80 IF INKEY(9)=0 THEN 30:REM copy = borrar 

90 GOTO 40 

run 

Orden. Dibuja un punto en la pantalla grafica en una posicion que, referida a la actual, viene dada 
por los parametros <incremento de x> e <incremento de y>. Se puede utilizar el parametro 
opcional <tinta> para cambiar la tinta de la pluma grafica (margen de a 1 5). 

Manual de Amstrad CPC 6 1 28 (revision 2008) - Pagina 1 54 



El parametro opcional <modo de tinta> determina la futura forma de interaccion entre la tinta 
con la que se dibuja y la ya presente en la pantalla. Los cuatro modos son: 

Normal 

1 XOR (OR exclusive*) 

2 AND 

3 OR 

Palabras clave asociadas: GRAPHICS PEN, PLOT. 

POKE 

Sintaxis: POKE <expresion de direccion de memoria>, <expresion entera> 
Ejemplo: 

10 FOR m=49152 TO 65535 
20 POKE m,100 
30 NEXT 
run 

Orden. Escribe el valor de la <expresion entera> (margen de a 255) en la memoria de la 
maquina (RAM), en la posicion especificada por el parametro <expresion de direccion de 
memoria). 

Esta orden no se debe utilizar si no se sabe cuales son sus efectos. 

Palabras clave asociadas: PEEK. 

POS 

Sintaxis: POS ( #<expresion de muero de canal>) 

Ejemplo: 

10 MODE 1:B0RDER 0:L0CATE 8,2 

20 PRINT "Utilice las teclas de cursor a la izquierda y cursor a la derecha" 

30 WINDOW 1,40,12,12:CURS0R 1,1 

40 FOR n=l TO 19:PRINT CHR$(9) ; :NEXT 

50 IF INKEY(1)<>-1 THEN PRINT CHR$(9); 

60 IF INKEY(8)<>-1 THEN PRINT CHR$(8); 

70 LOCATE #1,1,24 

80 PRINT #1, "Posicion horizontal del "; 

90 PRINT #1, "cursor de texto ="; 

100 PRINT #1,P0S(#0):G0T0 50 

run 

Funcion. Da la posicion horizontal del cursor de texto referida al borde izquierdo de la ventana. 
El parametro <expresion de numero de canal > tiene que ser especificado, aunque sea el #0. 

POS(#8) da la posicion horizontal de la cabeza impresora, siendo I la posicion del extremo 
izquierdo. 

POS(#9) da la posicion logica en el canal del disco, esto es, el numero de caracteres tipograficos 
enviados al disco despues del ultimo retorno del carro. 

Palabras clave asociadas: VPOS, WINDOW. 
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PRINT 

Sintaxis: PRINT [<expresion de numero de canal>, ][< lista de:<elemento que se escribe> >] 
Ejemplo: 

10 a$="corta" 

20 b$="esta cadena es mas larga" 

30 PRINT a$;a$ 

40 PRINT a$,a$ 

50 PRINT 

60 PRINT b$;b$ 

70 PRINT b$,b$ 

run 

Orden. Envfa los <elementos que se escriben> al canal especificado (o al #0, si no se especifica 
ninguno). 

Cuando se utiliza un signo de punto y coma (;) para separar los elementos de la lista, el 
ordenador escribe cada elemento inmediatamente despues del anterior; no obstante, 

BASIC comprueba si el elemento siguiente cabe en la misma Ifnea y, si no cabe, salta a la Ifnea 
siguiente a pesar del signo de punto y coma. 

Analogamente, la coma (,) especifica que el siguiente elemento se debe escribir en la siguiente 
zona de escritura; no obstante, BASIC comprueba si con el elemento actual se ha rebasado la 
anchura de la zona de escritura y, si es asf, escribe el siguiente elemento en una zona mas a la 
derecha. 

PRINT SPC 

PRINT TAB 

Sintaxis: 

PRINT [<expresion de numero de canal>, ][< lista de:<elemento que se escribe>>] [; ] 

[SPC <expresion entera> ][< lista de:<elemento que se escribe> >] 
PRINT [<expresion de numero de canal>, ][< lista de:< elemento que se escribe>>] [; ] 

[TAB (<expresion entera> ] [< lista de:<elemento que se escribe> >] 
Ejemplo: 

10 PRINT "Esta es la funcion SPC" 

20 FOR x=6 TO 15 

30 PRINT SPC(5)"a" ;SPC(x)"b" 

40 NEXT 

50 PRINT "Esta es la funcion TAB" 

60 FOR x=6 TO 15 

70 PRINT TAB(5)"a" ;TAB(x)"b" 

80 NEXT 

run 

SPC escribe el numero de espacios especificado por la <expresion entera> y luego, 
inmediatamente a su derecha, el siguiente <elemento> (en el supuesto de que quepa en la 
misma Ifnea). Por consiguiente, no es necesario poner el signo de punto y coma despues de SPC. 

TAB avanza (escribiendo espacios) hasta la posicion especificada por la <expresion entera>, 
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referida al borde izquierdo de la ventana, y luego, inmediatamente a la derecha de esa posicion, 
escribe el siguiente <elemento> (en el supuesto de que quepa en la misma Ifnea). Por 
consiguiente, no es necesario poner el signo de punto y coma despues de TAB. Si la posicion 
actual es mayor que la especificada, primero se realiza un retorno de carro y avance de Ifnea y 
despues el avance de los espacios necesarios. 

PRINT USING 

Sintaxis: PRINT [<expresion de numero de canal >, ] 

[< lista de:<elemento que se escribe>>] [;] 

[USING < plantilla de formato>][<separador><expresion>] 

Ejemplo: 

10 FOR x=l TO 10 

20 n=100000*(RND /s 5) 

30 PRINT "Precio";USING "########, .##";n 

40 NEXT 

run 

PRINT USING permite especificar el formato de la expresion escrita con PRINT. Esto se 
consigue especificando una < plantilla de formato> a la que la escritura ha de amoldarse. El 
<separador> es una coma o un punto y coma. La < plantilla de formato > es una cadena literal 
construida con los siguientes 'especificadores de formato': 

Formatos numericos 

Para el numero en sf: 

• # Cada # especifica una posicion (para un dfgito). Ejemplo: ###### 

• . Especifica la posicion del punto decimal. Ejemplo: ######.## 

• , (Especifica una posicion.) Solo puede aparecer antes del punto decimal. Especifica que 
los dfgitos que queden a la izquierda del punto decimal deben separarse mediante comas 
en grupos de tres. Ejemplo: #####,.## 

Para antes y despues del numero: 

• PtPt (Especifica dos posiciones.) Especifica que se debe escribir un signo Pt 
inmediatamente antes del primer dfgito o del punto decimal, despues del signo + o - (si 
lo hay). Observese que el signo Pt ocupara una de las posiciones para dfgitos. Ejemplo: 
PtPt######,.## 

• ** (Especifica dos posiciones.) Especifica que los espacios libres a la izquierda deben ser 
rellenados con asteriscos. Ejemplo: **######,.## 

• **Pt (Especifica tres posiciones.) Actua como las opciones ** y PtPt combinadas, es 
decir, con asteriscos por la izquierda y el signo Pt. Ejemplo: **Pt######,.## 

• $$ (Especifica dos posiciones.) Especifica que se debe escribir un signo $ inmediatamente 
antes del primer dfgito o del punto decimal, despues del signo + o - (si lo hay). 
Observese que el signo $ ocupara una de las posiciones para dfgitos. Ejemplo: $ 

• **$ (Especifica tres posiciones.) Actua como las opciones ** y $$ combinadas, es decir, 
con asteriscos por la izquierda y el signo $. Ejemplo: **$######,.## 
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+ Especifica que se debe escribir el signo + o el - (segun corresponda). Si se incluye el 
signo + al principio de la plantilla, el signo se escribira inmediatamente antes del numero 
(y del signo Pt o $, si se lo ha especificado). Si se incluye el signo + al final de la plantilla, 
el signo se escribe a la derecha del numero (y del exponente, si lo hay). Ejemplo: 
+ ####.#### 

- Este signo solo se puede poner al final de la plantilla. Especifica que, si el numero es 
negativo, se debe escribir el signo - a su derecha (y a la derecha del exponente, si lo hay). 
Si el numero es positivo, a su derecha se escribe un espacio. Si no se especifica esto, se 
escribe automaticamente un signo - a la izquierda de todos los numeros negativos. 
Ejemplo: ####.####- 

•s x\ x\ ^ Especifica que el numero se debe escribir en forma exponencial. Los signos 
TTTT se deben poner a la derecha de las posiciones para dfgitos, pero a la izquierda de 
los signos + y - (si los hay). Ejemplo: ##.#### ~ ~ ~ ~ + 



La < plantilla de formato> para numeros no puede contener mas de 20 caracteres. Los 
numeros son redondeados antes de escribirlos con los dfgitos especificados. 

Si el formato es demasiado pequeho para el numero que se ha de escribir, por ejemplo 

PRINT USING "####"; 12345678 

el numero no se trunca, sino que se lo escribe entero, precedido de un signo % para indicar el 
'fallo de formato'. 

Formatos literales 

10 CLS:a$="abcdefghijklmnopq" 

20 PRINT "expresion de entrada = ";a$ 

30 PRINT:PRINT "con especificador ! = "; 

40 PRINT USING "!";a$ 

50 PRINT: PRINT "con especificador \espacios\ = 

60 PRINT USING "\ \";a$ 

70 PRINT:PRINT "con especificador & = "; 

80 PRINT USING "&";a$ 

90 GOTO 90 

run 



i 



Especifica que solamente se debe escribir el primer caracter de la cadena. Ejemplo: 



• \ <espacios> \ Especifica que solamente se deben escribir los x primeros caracteres de 
la cadena, siendo x la longitud de la plantilla (incluidas las barras inclinadas hacia la 
izquierda). Ejemplo: \ \ 

• & Especifica que se debe escribir la cadena completa sin modificarla. Ejemplo: & 

La < plantilla de formato> para cadenas literales no puede contener mas de 255 caracteres. 

Las plantillas de formato, tanto si son numericas como si son literales, pueden ser representadas 
por variables literales; por ejemplo: 

10 a$="PtPt######,.##" 

20 b$="!" 

30 PRINT USING a$ ; 12345. 6789 

40 PRINT USING b$;"centimos" 
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run 

En la parte 2 del capftulo 'Cuando usted guste ...' daremos mas informacion acerca de los 
formatos de impresion. 

Palabras clave relacionadas: SPC, TAB, USING, ZONE. 

RAD 

Sintaxis: RAD 
Ejemplo: 

RAD 

Orden. Hace que BASIC entienda los argumentos de las funciones trigonometricas en radianes. 
Esta es la situacion implfcita que se establece en el momento de encender la maquina, cuando se 
la reinicializa y cuando se ejecutan las ordenes NEW, CLEAR, LOAD, RUN, etc. 

Palabras clave asociadas: ATN, COS, DEG, SIN, TAN. 

RANDOMIZE 

Sintaxis: RANDOMIZE <expresion numerica> 
Ejemplo: 

RANDOMIZE 123.456 
PRINT RND 
0.258852139 

Orden. El generador de numeros aleatorios de BASIC produce una sucesion pseudo-aleatoria en 
la que cada numero depende del anterior. La sucesion es siempre la misma. RANDOMIZE hace 
que los numeros aleatorios se tomen de esa sucesion a partir de la posicion dada por la 
<expresion numerica> o, si se omite esta, por un valor que el usuario debe teclear. 

RANDOMIZE TIME produce una sucesion que es muy diffcil de repetir. 

Palabras clave asociadas: RND. 

READ 

Sintaxis: READ < lista de:< variable >> 

Ejemplo: 

10 FOR n=l TO 8 

20 READ a$,c 

30 PRINT a$;" ";:S0UND l,c:NEXT 

40 DATA en,478,todas,426,las,379,escalas,358 

50 DATA musicales, 319, hay, 284, 8,253, notas, 239 

run 

Orden. Lee datos de las listas precedidas de DATA y los asigna a variables, actualizando 
automaticamente el 'puntero' de forma que este sehale el siguiente dato. Se puede utilizar la 
orden RESTORE para hacer que el puntero sehale el primer dato de una determinada lista 
DATA. 

En la parte 2 del capftulo titulado Cuando usted guste...' daremos mas amplia informacion a este 
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respecto. 

Palabras clave asociadas: DATA, RESTORE. 

RELEASE 

Sintaxis: RELEASE <canales de sonido> 

Ejemplo: 

10 SOUND 65,1000,100 

20 PRINT "Pulse R para liberar el sonido" 

30 IF INKEY(50>=-1 THEN 30 

40 RELEASE 1 

RUN 

Orden. Libera los canales de sonido que han sido retenidos en una orden SOUND. 

El parametro < canales de sonido > tiene que dar un valor entero comprendido entre I y 7. Su 
significado es el siguiente: 

1 libera el canal A 

2 libera el canal B 

3 libera los canales A y B 

4 libera el canal C 

5 libera los canales A y C 

6 libera los canales B y C 

7 libera los canales A, B y C 

En la parte 2 del capftulo 'Cuando usted guste...' daremos mas amplia informacion acerca de los 
sonidos. 

Palabras clave asociadas: SOUND. 

REM 

Sintaxis: REM <resto de la l(nea> 
Ejemplo: 

10 REM Caza a muerte de los invasores del hiper-espacio intergalactico, por 

AMS0FT 
20 REM Copyright AMS0FT 1985 

Orden. Precede a las observaciones o anotaciones al programa. Hace que BASIC ignore el resto 
de la Ifnea, en el cual pueden figurar caracteres cualesquiera, incluso el signo de dos puntos (:), 
que normalmente se utiliza para separar instrucciones. 

En lugar de :REM se puede poner una comilla sencilla (') en todos los casos salvo en las Ifneas de 
DATA, en las que el signo ' se interpreta como integrante de una cadena literal. 

Palabras clave asociadas: ninguna. 

REMAIN 

Sintaxis: REMAIN (<numero de temporizador>) 
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Ejemplo: 

10 AFTER 500,1 GOSUB 40 

20 AFTER 100,2 GOSUB 50 

30 PRINT "Programa funcionando" :G0T0 30 

40 REM esta subrutina no sera invocada porque lo impide la linea 80 

50 PRINT:PRINT "El temporizador 1 va a ser "; 

60 PRINT "inhibido por REMAIN." 

70 PRINT "Unidades de tiempo que quedaban:"; 

80 PRINT REMAIN(l) 

run 

Funcion. Da la cuenta restante en el temporizador especificado (margen de a 3) y lo desactiva. 

En la parte 2 del capftulo 'Cuando usted guste...' daremos mas informacion acerca de las 
interrupciones. 

Palabras clave asociadas: AFTER, Dl, El, EVERY. 

RENUM 

Sintaxis: RENUM [<nuevo numero de l(nea>][,[<antiguo numero de lfnea>][,<incremento>]] 

Ejemplo: 

10 CLS 

20 REM esta linea sera la 123 

30 REM esta linea sera la 124 

40 REM esta linea sera la 125 

RENUM 123,20,1 

LIST 

Orden. Renumera las Ifneas del programa. 

El parametro <antiguo numero de l(nea> especifica el numero de lfnea actual en el cual debe 
comenzar la renumeracion. Si se omite ese parametro, la renumeracion se realiza desde el 
principio del programa. 

El parametro <nuevo numero de l(nea> especifica que numero se va a dar a la primera lfnea 
renumerada. Si se omite este parametro, el programa renumerado empieza en la lfnea 10. 

El parametro <incremento> especifica el salto que habra entre cada dos numeros de lfnea 
sucesivos. Si se lo omite, el incremento es 10. 

RENUM modifica correctamente los numeros de lfnea citados en las instrucciones GOTO, 
GOSUB y similares. Sin embargo, no se modifican las referencias a numeros de lfnea que esten 
contenidas en expresiones literales, tales como las que intervienen en las ordenes KEY, ni 
tampoco las contenidas en Ifneas REM, ni las <expresiones de numero de linea> incluidas en 
CHAIN y CHAIN MERGE. 

Los numeros de lfnea validos son los comprendidos entre I y 65535. 

Palabras clave asociadas: DELETE, LIST. 

RESTORE 

Sintaxis: RESTORE [< numero de lfnea>] 
Ejemplo: 
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10 READ a$: PRINT a$;" "; 

20 RESTORE 50 

30 FOR t=l TO 500: NEXT: GOTO 10 

40 DATA restaure los datos para leerlos una vez 

50 DATA y otra 

run 

Orden. Hace que el 'puntero' de datos 'apunte' hacia el principio de la Ifnea de DATA especificada 
por el parametro opcional <numero de lfnea>. Si se omite el parametro, el puntero senala la 
primera Ifnea de DATA del programa. 

En la parte 2 del capftulo 'Cuando usted guste ... ' daremos mas informacion a este respecto. 

Palabras clave asociadas: DATA, READ. 

RESUME 

Sintaxis: RESUME [<numero de l(nea>] 
Ejemplo: 

10 ON ERROR GOTO 60 

20 FOR x=10 TO STEP -1:PRINT l/x:NEXT 

30 END 

40 PRINT "llegamos hasta aqui despues del error" 

50 END 

60 PRINT "error numero";ERR;"en la linea";ERL 

70 RESUME 40 

run 

Orden. Reanuda la ejecucion normal del programa una vez detectado un error y procesado por 
una orden ON ERROR GOTO. Si se omite el <numero de l(nea>, el programa continua en la 
misma Ifnea en la que se produjo el error. Suprima el <numero de l(nea> en el ejemplo anterior 
y ejecute nuevamente el programa: 

70 RESUME 
run 

Palabras clave asociadas: DERR, ERL, ERR, ERROR, ON ERROR GOTO, RESUME NEXT. 

RESUME NEXT 

Sintaxis: RESUME NEXT 

Ejemplo: 

10 ON ERROR GOTO 90 

20 PRINT "Pulse siempre [RETURN]" 



30 INPUT "l";a 




40 INPUT "2";a 




50 inpot "3";a REM error de sintaxis 




60 INPUT "4";a 




70 INPUT "5";a 




80 END 




90 PRINT "error numero";ERR;"en la Ifnea" 


;ERL 


100 RESUME NEXT 




run 
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Orden. Reanuda la ejecucion normal del programa una vez detectado un error y procesado por 
unaorden ON ERROR GOTO. 

RESUME NEXT reanuda la ejecucion en la Ifnea siguiente a aquella en la que se detecto el error. 

Palabras clave asociadas: DERR, ERL, ERR, ERROR, ON ERROR GOTO, RESUME. 

RETURN 

Sintaxis: RETURN 
Ejemplo: 

10 GOSUB 50: PRINT "despues del G0SUB":END 

50 FOR n=l TO 20 

60 PRINT "subrutina" 

70 NEXT:PRINT 

80 RETURN 

run 

Orden. Senala el final de una subrutina. BASIC retorna de la subrutina a la instruccion 
inmediatamente posterior a aquella que invoco la subrutina. 

Palabras clave asociadas: GOSUB. 

RIGHTS 

Sintaxis: RIGHTS (<expresion literal> , <longitud deseada> ) 
Ejemplo: 

10 MODE 0:a$="0rdenador CPC6128" 
20 FOR n=l TO 17:L0CATE 21-n,n 
30 PRINT RIGHT$(a$,n) 
40 NEXT 
run 

Funcion. Produce una cadena que consta del numero de caracteres dado por (longitud deseada> 
(margen de a 255) tornados de la derecha de la <expresion literal >. Si la longitud de la 
<expresion literal > es menor que la < longitud deseada>, la cadena producida es la 
<expresion literal > completa. 

Palabras clave asociadas: LEFT$, MID$. 

RND 

Sintaxis: RND [ (<expresion numerica>) ] 
Ejemplo: 

10 RANDOMIZE 

20 FOR x=l TO -1 STEP -1 

30 PRINT "parametro de rnd =";x 

40 FOR n=l TO 6 

50 PRINT RND(X) 

60 NEXT n,x 

run 

Funcion. Da el siguiente numero aleatorio de la sucesion en el caso de que la <expresion 
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numerica> tenga valor positivo o no haya sido especificada. 

Si la <expresion numerica> toma valor cero, RND vuelve a dar el anterior numero aleatorio 
generado. 

Si la <expresion numerica> toma un valor negativo, se inicia una nueva sucesion aleatoria y 
RND da su primer numero. 

Palabras clave asociadas: RANDOMIZE. 

ROUND 

Sintaxis: ROUND (<expresion numerica> [,<decimales>]) 
Ejemplo: 

10 FOR n=4 TO -4 STEP-1 

20 PRINT R0UND(1234.5678,n), 

30 PRINT "con <decimales> =";n 

40 NEXT 

run 

Funcion. Redondea la <expresion numerica> a un numero de decimales o potencia de diez 
especificada por <decimales>. Si <decimales> es menor que cero, se redondea la <expresion 
numerica> para dar un numero entero seguido de tantos ceros antes del punto decimal como 
indique el parametro <decimales>. 

Palabras clave asociadas: ABS, CI NT, FIX, INT. 

RUN 

Sintaxis: RUN <expresion literal > 
Ejemplo: 

RUN "disc" 

Orden. Carga un programa de BASIC o un programa binario que este grabado en disco e inicia su 
ejecucion. Borra el programa anteriormente residente en la memoria. 

Los programas de BASIC protegidos pueden ser ejecutados por este procedimiento. 

Palabras clave asociadas: LOAD. 

RUN 

Sintaxis: RUN [<numero de l(nea>] 
Ejemplo: 

RUN 200 

Orden. Inicia la ejecucion del programa de BASIC actual a partir de la Ifnea especificada por 
< numero de l(nea>, o a partir de la primera Ifnea del programa si se omite el parametro. 

Los programas protegidos no pueden ser ejecutados por este procedimiento. 

Palabras clave asociadas: CONT, END, STOP. 
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SGN 

Sintaxis: SGN (<expresion numerica>) 

Ejemplo: 

10 FOR n=200 TO -200 STEP-20 

20 PRINT "SGN da"; 

30 PRINT SGN(n);"cuando el numero es";n 

40 NEXT 

run 

Funcion. Determina el signo de la <expresion numerica>. Da el valor -I si la <expresion 
numerica> es menor que cero; el valor si es igual a 0; y el valor I si es mayor que cero. 

Palabras clave asociadas: ABS. 

SIN 

Sintaxis: SIN ( <expresion numerica>) 
Ejemplo: 

10 CLS:DEG:0RIGIN 0,200 

20 FOR n=0 TO 720 

30 y=SIN(n) 

40 PLOT n*640/720,198*y:NEXT 

50 GOTO 50 

run 

Funcion. Calculael seno de la <expresion numerica>. 

Observese que se puede utilizar DEG y RAD para hacer que el ordenador entienda los arcos 
como dados en grados o en radianes, respectivamente. 

Palabras clave asociadas: ATN, COS, RAD, TAN. 

SOUND 

Sintaxis: SOUND <situacion de canales>, <periodo de tono> 

[,<duracion> [,<volumen> [,<envolvente de volumen> 

[,<envolvente de tono>[, <ruido>] ] ] ] ] 
Ejemplo: 

10 FOR z=0 TO 4095 
20 SOUND l,z,l,12 
30 NEXT 
run 

Orden. Programa la generacion de un sonido. Los parametros son los siguientes: 
Parametro I: <situacion de canales> 

El parametro <situacion de canales> debe tener un valor comprendido entre I y 255. 
El significado de cada uno de los bits es como sigue: 

• Bit (decimal I ) enviar sonido al canal A (bit menos significativo) 
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Bit I (decimal 2) enviar sonido al canal B 

Bit 2 (decimal 4) enviar sonido al canal C 

Bit 3 (decimal 8) sincronizacion con el canal A 

Bit 4 (decimal 1 6 sincronizacion con el canal B 

Bit 5 (decimal 32) sincronizacion con el canal C 

Bit 6 (decimal 64) retencion del canal de sonido 

Bit 7 (decimal 1 28) borrado del canal de sonido (bit mas significativo) 

Por ejemplo, el valor 68 del parametro <situacion de canales> especifica: Enviar el sonido al 
canal C (4) y retenerlo (64). 

Parametro 2: <periodo de tono> 

Este parametro define el tono del sonido; es decir, identifica la nota (DO, RE, Ml, FA, etc.). Cada 
nota tiene un numero de identificacion, que es el <periodo de tono >. Vease el capitulo titulado 
'Para su referenda.. .'. 

Parametro 3: <duracion> 

Este parametro especifica la duracion del sonido. Las unidades son de centesimas de segundo 
(0.01 s). Si no se especifica duracion, el ordenador toma el valor implfcito para este parametro, 
que es 20 (un quinto de segundo). 

Si el valor de <duracion> es cero, el sonido dura hasta el final de la envolvente de volumen 
especificada. 

Si el valor de < duracion > es negativo, la envolvente de volumen especificada se repite ABS 
(< duracion >) veces. 

Parametro 4: <volumen> 

Este parametro especifica el volumen inicial de la nota. El margen de valores va de a 15. El 
<volumen> es el mfnimo; el 15 es el maximo. Si no se especifica <volumen>, el ordenador 
toma el implfcito, que es 1 2. 

Parametro 5: <envolvente de volumen > 

Se puede hacer que el volumen de la nota no sea constante, sino que vane con el tiempo 
mientras la nota esta sonando. Para especificar la forma de variacion del volumen con el tiempo 
se utiliza la orden ENV. De hecho, se pueden crear hasta 1 5 envolventes de volumen diferentes, 
con numeros de referenda del I al 15. El parametro <envolvente de volumen> invoca una 
envolvente de volumen para su utilizacion por SOUND. 

Vease la descripcion de la orden ENV. 

Parametro 6: < envolvente de tono> 

Se puede hacer que el tono de una nota no sea constante, sino que vane con el tiempo mientras 
la nota esta sonando. Para especificar la forma de variacion del tono con el tiempo se utiliza la 
orden ENT. De hecho, se pueden crear hasta 1 5 envolventes de tono diferente, con numeros 
de referenda del I al 15. El parametro <envolvente de tono> invoca una envolvente de tono 
para su utilizacion por SOUND. Si en la definicion de ENT se ha puesto un numero negativo 
como numero de envolvente, en la instruccion SOUND se debe poner el valor absoluto de ese 
numero como < envolvente de tono>. 

Vease la descripcion de la orden ENT. 
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Parametro 7: <ruido> 

Se puede anadir ruido al sonido: la intensidad del ruido se controla con el parametro <ruido>. 
El margen de valores va de (ruido apagado) hasta 3 I . 

En la parte 2 del capitulo 'Cuando usted guste ...' daremos mas amplia informacion sobre los 
sonidos. 

Palabras clave asociadas: ENT, ENV, ON SQ GOSUB, RELEASE, SQ. 

SPACES 

Sintaxis: SPACES (<expresion entera>) 
Ejemplo: 

10 MODE 1 

20 PRINT "Pongamos 5 espacios entre uno"; 

30 PRINT SPACE$(5); 

40 PRINT "y otro" 

run 

Funcion. Crea una cadena literal consistente en el numero de espacios especificado por 
<expresion entera> (margen de a 255). 

Palabras clave asociadas: SPC, STRINGS, TAB. 

SPC 

Vease PRINT SPC. 

SPEED INK 

Sintaxis: SPEED INK <periodo I >, <periodo 2> 
Ejemplo: 

10 BORDER 7,18 

20 FOR i=30 TO 1 STEP-1 

30 SPEED INK i,i 

40 FOR t=l TO 700:NEXT t,i 

run 
Orden. Establece la velocidad de alternancia entre los dos colores de tinta especificados 
mediante INK o BORDER. El primer parametro, periodo I >, especifica el tiempo para el primer 
color, en unidades de 0.02 s (cincuentavos de segundo); < periodo 2> especifica el tiempo para 
el segundo color. 

Tengase cuidado al elegir colores y velocidades para evitar efectos mesmericos ('hipnotizantes'). 

Palabras clave asociadas: BORDER, INK. 

SPEED KEY 

Sintaxis: SPEED KEY <demora de arranque>, <periodo de repeticion> 
Ejemplo: 

10 CLS:F0R k=7 TO 1 STEP-2 

20 PRINT "Escriba su nombre y pulse [RETURN]" 

30 SPEED KEY k,k 
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40 LINE INPUT a$:NEXT 

50 PRINT "Es un nombre muy interesante" 

run 
Orden. Establece las caracterfsticas de repeticion de las teclas. El parametro <demora de 
arranque> especifica el tiempo, en unidades de 0.02 s (cincuentavos de segundo) que ha de 
estar pulsada la tecla antes de que empiece a repetirse su accion. El parametro <periodo de 
repeticion > especifica el tiempo que debe transcurrir entre cada dos repeticiones sucesivas. 

SPEED KEY solamente actua sobre las teclas que son de repeticion implfcitamente o que han 
sido definidas como tales mediante KEY DEF. 

Cuando se vaya a utilizar valores muy bajos del parametro demora de arranque>, es 
aconsejable definir previamente una de las teclas numericas para que devuelva el teclado a la 
situacion implfcita, SPEED KEY 30,2. La orden 

KEY 0, "SPEED KEY 30,2"+CHR$(13) 

restablece los valores implfcitos de los parametros de SPEED KEY en cuanto se pulsa la tecla del 
del 'teclado numerico. 

Palabras clave asociadas: KEY DEF. 

SPEED WRITE 

Sintaxis: SPEED WRITE <expresion entera> 
Ejemplo: 

SPEED WRITE 1 

Orden. Establece la velocidad de transferencia de datos al magnetofono (si esta conectado). Las 
velocidades son: 2000 bits por segundo, si <expresion entera> vale I , y 1000 bits por segundo 
si <expresion entera> vale 0. Esta ultima es la velocidad implfcita. Para leer una cinta no es 
necesario saber a que velocidad ha sido grabada, pues el ordenador selecciona automaticamente 
la velocidad correcta de lectura. 

La maxima fiabilidad en la transferencia de datos se obtiene con la velocidad minima, que 
ademas es la implfcita: SPEED WRITE 0. 

Esta orden no ejerce ningun efecto sobre el sistema de grabacion en disco. 

Palabras clave asociadas: OPENOUT, SAVE. 

SQ 

Sintaxis: SQ (< canal > ) 
Ejemplo: 

10 SOUND 65,100,100 
20 PRINT SQ(1) 
run 
67 

Funcion. Genera un numero que informa del estado de la cola de sonido del < canal > 
especificado. El parametro puede tener uno de los siguientes valores: 

• I para el canal A 
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• 2 para el canal B 

• 4 para el canal C 

La funcion SQ produce un numero que se interpreta, segun sea el valor de sus bits, de la forma 
siguiente: 

• Bits 0, I y 2: numero de huecos libres en la cola 

• Bits 3, 4 y 5: estado de sincronizacion de la primera nota de la cola 

• Bit 6 la primera nota esta retenida 

• Bit 7 el canal esta activo en la actualidad 

donde el bit es el menos significativo y el bit 7 el mas significative 

Como se puede apreciar, si el bit 6 esta a I , el bit 7 tiene que estar a cero, y viceversa. 
Analogamente, si alguno de los bits 3, 4 y 5 esta a I , los bits 6 y 7 tienen que estar a cero. 

En la parte 2 del capftulo 'Cuando usted guste ...' daremos mas informacion acerca de los 
sonidos. 

Palabras clave asociadas: ON SQ GOSUB, SOUND. 

SQR 

Sintaxis: SQR ( <expresion numerica>) 

Ejemplo: 

PRINT SQR (9) 
3 

Funcion. Da el valor de la rafz cuadrada de la <expresion numerica>. 
Palabras clave asociadas: ninguna. 

STEP 

Vease FOR. 

STOP 

Sintaxis: STOP 
Ejemplo: 

10 FOR n=l TO 30:PRINT n:NEXT 

20 STOP 

30 FOR n=31 TO 60:PRINT n:NEXT 

run 

cont 
Orden. Detiene la ejecucion del programa, pero deja BASIC en un estado tal, que el programa 
puede ser reanudado mediante CONT. STOP se utiliza para establecer puntos de parada en la 
depuracion de programas. 

Palabras clave asociadas: CONT, END. 
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STR$ 

Sintaxis: STR$ (<expresion numerica>) 
Ejemplo: 

10 a=&FF :REM 255 en hexadecimal 

20 b=&Xllll :REM 15 en binario 

30 c $="***" 

40 PRINT c$+STR$(a+b)+c$ 

run 

*** 270X** 
Funcion. Convierte la <expresion numerica> en una cadena literal formada por los mismos 
dfgitos decimales. 

Palabras clave asociadas: BIN$, DEC$, HEX$, VAL. 

STRINGS 

Sintaxis: STRINGS ( <longitud>, <especificador del caracter>) 
Ejemplo: 

PRINT STRING$(40, "*") 

**************************************** 

Funcion. Da una cadena literal que consiste en el caracter especificado repetido tantas veces 
como indique <longitud> (margen de a 255). Notese que en el ejemplo anterior se podrfa 
haber puesto tambien: 

PRINT STRING$(40, 42) 

**************************************** 

donde el <especificador del caracter >, el numero 42, es el codigo ASCII del asterisco. 
Palabras clave asociadas: SPACE$. 

SWAP 

Vease WINDOW SWAP. 

SYMBOL 

Sintaxis: SYMBOL <numero del caracter> , < lista de: <fila> 

Ejemplo: 

10 MODE 1: SYMBOL AFTER 105 

20 filal=255:REM 11111111 en binario 

30 fila2=129:REM 10000001 en binario 

40 fila3=189:REM 10111101 en binario 

50 fila4=153:REM 10011001 en binario 

60 fila5=153:REM 10011001 en binario 

70 fila6=189:REM 10111101 en binario 

80 fila7=129:REM 10000001 en binario 

90 fila8=255:REM 11111111 en binario 

100 PRINT "La linea 110 redefine la letra i (105). Teclee varias veces esa 

letra y luego liste el programa." 
110 SYMBOL 105,filal, fila2, fila3, fila4, fila5, fila6, fila7, fila8 
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run 

Orden. Redefine la forma de un caracter. El margen para todos los parametros es de a 255. 

Con objeto de reservar espacio en la memoria del ordenador para la descripcion del caracter, es 
necesario ejecutar previamente la orden: 

SYMBOL AFTER x 

donde x debe ser igual o menor que el numero del caracter que se va a definir. 

A continuacion se emite la orden SYMBOL seguida, en primer lugar, por el numero del caracter. 

El caracter puede ser directamente accesible por el teclado; en cualquier caso se lo puede 
escribir mediante la orden 

PRINT CHR$ (x) 

Despues de SYMBOL x viene una sucesion de hasta 8 parametros, cada uno de los cuales 
describe una fila de la matriz del caracter. El margen de estos parametros es de a 255. La 
representacion binaria de cada parametro indica la situacion de 'encendido' o 'apagado' de cada 
uno de los puntos de la fila correspondiente. 

Por ejemplo, si el primero de los ochos parametros vale I , la fila superior del caracter tiene la 
representacion binaria 00000001. Cada I indica que el correspondiente punto del caracter se 
ilumina con el color de PEN; cada indica que el correspondiente punto no sera visible, pues se 
lo escribe con el color de PAPER. Asf pues, la primera fila de este caracter consiste en un punto 
en el extremo superior derecho. Los siguientes parametros son 3,7,15,31,63,0,0. La repre- 
sentacion binaria de los ocho parametros es como sigue: 



parametro (fi 
parametro (fi 
parametro (fi 
parametro (fi 
parametro (fi 
parametro (fi 
parametro (fi 
parametro (fi 



la) 1:00000001 en binario 
la) 2: 0000001 I en binario 
la) 3: 000001 I I en binario 
la) 4: 0000 1 I I I en binario 
la) 5: 0001 I I I I en binario 
la) 6: 001 I I I I I en binario 
la) 7: 00000000 en binario 
la) 8: 00000000 en binario 



( I en decimal) 
( 3 en decimal) 
( 7 en decimal) 
(15 en decimal) 
(3 I en decimal) 
(63 en decimal) 
( en decimal) 
( en decimal) 



Observando el conjunto de las representaciones binarias podemos hacernos una idea del 
aspecto que tendra el caracter. Asignemos estos parametros al caracter numero 255 mediante la 
orden: 

SYMBOL 255,1,3,7,15,31,63,0,0 

Al ser los dos ultimos, podemos omitirlos: 

SYMBOL 255,1,3,7,15,31,63 

Los parametros se pueden introducir en forma binaria, con lo que se ahorra el trabajo de 
convertirlos previamente a la forma decimal. (Recuerdese que el prefijo para numeros binarios 
es &X.) Por ejemplo: 

SYMBOL 255, &X00000001, &X00000011, &X00000111, &X00001111, &X00011111, 
&X00111111 
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Finalmente, para ver el resultado de la definicion, ejecute la orden 

PRINT CHR$(255) 

Si se redefine uno de los caracteres accesibles por el teclado, el nuevo caracter aparecera en la 
pantalla cada vez que se pulse la tecla correspondiente o se lo escriba con PRINT CHR$( ). Por 
otra parte, BASIC reconoce la forma del nuevo caracter cuando trata de leerlo en la pantalla, y 
no lo rechaza por incomprensible. 

En la parte 2 del capftulo 'Cuando usted guste ... ' daremos mas informacion sobre la redefinicion 
de caracteres. 

Palabras clave asociadas: COPYCHR$, HIMEM, MEMORY, SYMBOL AFTER. 

SYMBOL AFTER 

Sintaxis: SYMBOL AFTER <expresion entera> 

Ejemplo: 

10 CLS 

20 SYMBOL AFTER 115 

30 PRINT "La linea 40 redefine la letra s "; 

40 SYMBOL 115,0,56,64,64,48,8,8,112 

50 PRINT "a s" 

60 PRINT "Cancele esta definicion de s" 

70 PRINT "tecleando SYMBOL AFTER 240" 

run 

Orden. Establece el numero de caracteres redefinibles por el usuario (en el margen de a 256). 
El numero implfcito es 240, lo que deja 1 6 caracteres (del 240 al 255) definibles por el usuario. Si 
<expresion entera> es 32, todos los caracteres, del 32 al 255, son definibles. SYMBOL AFTER 
256 impide la redefinicion de caracteres. 

Cada vez que se ejecuta una orden SYMBOL AFTER, quedan anuladas todas las redefiniciones y 
la forma de todos los caracteres vuelve a ser la implicita. 

La orden SYMBOL AFTER no se puede ejecutar despues de modificar el valor de HIMEM, lo 
cual puede ocurrir como resultado de una orden MEMORY, o bien al abrir un tampon para la 
grabacion o lectura de un fichero con OPENOUT u OPENIN. En tales circunstancias se provoca 
el mensaje 'improper argument' ('argumento inadecuado', error numero 5), a menos que la 
situacion anterior fuera SYMBOL AFTER 256. 

En la parte 2 del capitulo Cuando usted guste...' daremos mas informacion sobre la redefinicion 
de caracteres. 

Palabras clave asociadas: HIMEM, MEMORY, SYMBOL. 

TAB 

Vease PRINT TAB. 

TAG 

Sintaxis: TAG [#<expresion de numero de canal>] 
Ejemplo: 
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10 INPUT "Escriba su nombre: ",a$:CLS 

20 PRINT "Se mueve listed mucho, ";a$ 

30 TAG 

40 x=LEN(a$)*17:y=50+RND*300:M0VE -x,y 

50 FOR f=-x TO 640 STEP RND*7+3 

60 MOVE f,y:PRINT " ";a$; : FRAME: NEXT 

70 FOR b=640 TO -x STEP-RND*7+3 

80 MOVE b,y:PRINT a$;" "; :FRAME:NEXT 

90 GOTO 40 

run 

Orden. Hace que el texto enviado al canal especificado sea escrito en la pantalla grafica, en la 
posicion actual del cursor. De esta forma se puede mezclar texto con graficos, o mover los 
caracteres pixel a pixel. Si se omite la <expresion de numero de canal >, se supone el #0. 

El punto superior izquierdo del caracter se conecta al cursor grafico. Si se omite el signo de 
punto y coma al final de la instruccion PRINT, los codigos de retorno del carro y de avance de 
linea se visualizan como caracteres graficos. 

Si se ha aplicado TAG al canal #0, BASIC desactiva TAG al volver a modo directo. 

Palabras clave asociadas: TAGOFF. 

TAGOFF 

Sintaxis: TAGOFF [#<expresion de numero de canal>] 

Ejemplo: 

10 MODE 2:TAG :REM texto ligado al cursor grafico 

20 periodo=1984:F0R x=l TO 640 STEP 70 

30 MOVE x,400:DRAWR 0,-350 

40 periodo=periodo+l:PRINT periodo; :NEXT 

50 TAGOFF :REM texto desconectado de cursor grafico 

60 LOCATE 34,25:PRINT "Datos anuales" 

70 GOTO 70 

run 

Orden. Cancela la orden TAG para el canal especificado (o para el #0, si no se especifica otro) y 
redirige el texto a la posicion que tenia el cursor de texto antes de ejecutarse TAG. 

Palabras clave asociadas: TAG. 

TAN 

Sintaxis: TAN (<expresion numerica>) 
Ejemplo: 

PRINT TAN(45) 
1.61977519 

Funcion. Calcula la tangente de la <expresion numerica>, que debe tener un valor 
comprendido entre -20000 y +20000. 

Observese que se puede utilizar DEG y RAD para hacer que el ordenador entienda los arcos 
como dados en grados o en radianes, respectivamente. 

Palabras clave asociadas: ATN, COS, DEG, RAD, SIN. 
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TEST 

Sintaxis: TEST (<coordenadax>, <coordenaday>) 

Ejemplo: 

10 CLS 

20 PRINT "Estamos utilizando la pluma numero"; 

30 PRINT TEST(10,386) 

40 PRINT "Cambie la pluma y el modo "; 

50 PRINT "... y ejecute otra vez el programa." 

Run 

Funcion. Traslada el cursor grafico al punto de coordenadas absolutas especificadas e informa del 
valor de la tinta presente en esa posicion. 

Palabras clave asociadas: MOVE, MOVER, TESTR, XPOS, YPOS. 

TESTR 

Sintaxis: TESTR (<incremento de x>, <incremento de y>) 
Ejemplo: 

10 MODE 0:F0R x=l TO 15: LOCATE l,x 

20 PEN x:PRINT STRINGS (10, 143) ; :NEXT 

30 MOVE 200,400: PEN 1 

40 FOR n=l TO 23: LOCATE 12, n 

50 PRINT "pen";TESTR(0,-16):NEXT 

run 

Funcion. Lleva el cursor grafico a un punto cuya posicion, referida a la posicion actual, viene dada 
por los parametros <incremento de x> e <incremento de y>, e informa del valor de la tinta 
presente en ese punto. 

Palabras clave asociadas: MOVE, MOVER, TEST, XPOS, YPOS. 

THEN 

Vease IF. 

TIME 

Sintaxis: TIME 
Ejemplo: 

10 CLS: REM reloj 

20 INPUT "Hora: ",hora 

30 INPUT "Minuto: ",minuto 

40 INPUT "Segundo: ",segundo 

50 CLS:referencia=INT(TIME/300) 

60 WHILE hora<13 

70 WHILE minuto<60 

80 WHILE tiempo<60 

90 tiempo=(INT(TIME/300)-referencia)+segundo 

100 LOCATE 1,1 

110 PRINT USING "## ";hora,minuto,tiempo 

120 WEND 
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130 ti empo=0 : segundo=0 :mi nuto=mi nuto+1 

140 GOTO 50 

150 WEND 

160 minuto=0:hora=hora+l 

170 WEND 

180 hora=l 

190 GOTO 60 

Funcion. Da el tiempo transcurrido desde el momento en que se encendio o reinicializo la 
maquina por ultima vez (excluyendo el dedicado a escribir o leer en el disco), en unidades de 
1/300 s. Expresado en segundos, el tiempo es, pues, TIME/300. 

Palabras clave asociadas: AFTER, EVERY, WEND, WHILE. 

TO 

Vease FOR. 

TROFF 

TRON 

Sintaxis: 

TROFF 

TRON 
Ejemplo: 

10 TR0FF:PRINT:PRINT "TROFF" 

20 FOR n=l TO 8 

30 PRINT "Programa funcionando" :NEXT 

40 IF f=l THEN END 

50 TR0N:PRINT:PRINT "TRON" 

60 f=l:G0T0 20 

run 

Orden. Sigue la 'traza' del programa escribiendo los numeros de cada Ifnea antes de ejecutarla. 
Los numeros de Ifnea aparecen entre corchetes [ ]. 

TRON activa este modo; TROFF lo desactiva. 

TRON es particularmente util para estudiar la secuencia de numeros de Ifnea anterior al 
momento en que se produce un error. 

Palabras clave asociadas: ninguna. 

UNT 

Sintaxis: UNT (<expresion de direccion de memoria> ) 
Ejemplo: 

PRINT UNT (&FF66) 
-154 

Orden. Da un entero, comprendido entre -32768 y +32767, que es el equivalente en 
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'complemento a dos' al valor de <expresion de direccion de memoria>. 
Palabras clave asociadas: CINT, FIX, INT, ROUND. 

UPPER$ 

Sintaxis: UPPERS (<expresion literal >) 

Ejemplo: 

10 CLS:a$="mire como crecen!" 

20 PRINT UPPER$(a$) 

run 

Funcion. Da una cadena literal que es copia de la <expresion literal> especificada, pero 
convirtiendo las letras minusculas en mayusculas y dejando inalterados los restantes caracteres. 
Esta funcion es util en el proceso de datos que puedan contener minusculas mezcladas con 
mayusculas. 

Palabras clave asociadas: LOWER$. 

USING 

Vease PRINT USING. 

VAL 

Sintaxis: VAL (<expresion literal >) 
Ejemplo: 

10 CLS:PRINT "Ya he aprendido la tabla de multiplicar" 

20 PRINT:PRINT "Pulse una tecla del 1 al 9:" 

30 a$=INKEY$:IF a$="" THEN 30 

40 n=VAL(a$):IF n<l OR n>9 THEN 30 

50 FOR x=l TO 10 

60 PRINT n;"x";x;"=":n*x 

70 NEXT: GOTO 20 

run 

Funcion. Da el valor numerico (incluyendo el signo y el punto decimal) de los primeros 
caracteres de la <expresion literal> que sean dfgitos. 

Si el primer caracter no es un dfgito, el valor generado es 0. Si el primer caracter es el signo 
menos o el punto decimal y va seguido de caracteres no numericos, se provoca el mensaje 
"Type mismatch' ('incongruencia de tipos', error numero I 3). 

Palabras clave asociadas: STR$. 

VPOS 

Sintaxis: VPOS ( #<expresion de numero de canal>) 
Ejemplo: 

10 MODE 1:B0RDER 0:L0CATE 8,2 

20 PRINT "Util ice las teclas subir/bajar cursor" 

30 WINDOW 39,39, 1,25:CURS0R 1,1 

40 LOCATE 1,13 
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50 IF INKEY(0)<>-1 THEN PRINT CHR$(11); 

60 IF INKEY(2)<>-1 THEN PRINT CHR$(10); 

70 LOCATE #1,1,23 

80 PRINT #l,"Posicion vertical del" 

90 PRINT #1, "cursor de texto ="; 

100 PRINT #1,VP0S(#0):G0T0 50 

run 

Funcion. Da la posicion vertical del cursor de texto, referida al extremo superior de la ventana. 
Es necesario especificar la <expresion de numero de canal>, pues el ordenador no da por 
supuesto el #0. 

Palabras clave asociadas: POS, WINDOW. 

WATT 

Sintaxis: WAIT < numero de puerta>, <mascara>[ , < inversion >] 
Ejemplo: 

WAIT &FF34,20,25 

Orden. Espera hasta que por la puerta de entrada/salida especificada por < numero de puerta> 
se reciba un determinado valor. BASIC lee incesantemente la puerta. Con el valor recibido y el 
parametro < inversion > se realiza la operacion logica XOR; con este resultado y el parametro 
<mascara> se realiza la operacion logica AND; el proceso se repite hasta que el resultado final 
sea distinto de cero. 

BASIC espera indefinidamente hasta que se cumple la condicion requerida. Esta orden no debe 
ser utilizada por quien no sepa cuales son sus efectos. 

Palabras clave asociadas: INP, OUT. 

WEND 

Sintaxis: WEND 
Ejemplo: 

WEND 

Orden. Sehala el final del grupo de instrucciones cuya ejecucion se repite en un bucle del tipo 
WHILE. BASIC determina automaticamente a que WHILE corresponde cada WEND. 

Palabras clave asociadas: TIME, WHILE. 

WHILE 

Sintaxis: WHILE <expresion I6gica> 
Ejemplo: 

10 CLS:PRINT "Temporizador de 10 segundos" :t=TIME 

20 WHILE TIME< t+3000 

30 SOUND 1,0,100,15 

40 WEND: SOUND 129,40,30,15 

run 

Orden. Repite la ejecucion de un grupo de instrucciones mientras se cumpla cierta condicion. La 
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orden WHILE senala el principio del bucle y especifica la condicion logica mediante la 
<expresion I6gica>. 

Palabras clave asociadas: TIME, WEND. 

WIDTH 

Sintaxis: WIDTH <expresion entera> 
Ejemplo: 

WIDTH 40 

Orden. Informa a BASIC de cuantos caracteres por Ifnea se deben enviar a la impresora. BASIC 
envia a la impresora los codigos de retorno del carro y avance de Ifnea en el momento 
adecuado. 

El valor implfcito es 1 32. 

La orden WIDTH 255 suprime los codigos de retorno del carro y avance de Ifnea, dejando que 
el numero de caracteres por Ifnea sea totalmente controlado por la impresora. En todo caso, la 
orden PRINT envia a la impresora esos dos codigos siempre que no se incluya el signo de punto 
y coma al final. 

Palabras clave asociadas: POS. 

WINDOW 

Sintaxis: WINDOW [<#<expresion de numero de canal >,]<izquierda>, <derecha>, 

<arriba>, <abajo> 
Ejemplo: 

10 MODE 0:B0RDER 0:REM carta de ajuste 

20 ink 0,0:ink 1,25: ink 2,23:ink 3,21 
30 ink 4,17:ink 5,6:ink 6,2:ink 7,26 

:ls 

jindow 2,4,1,18:cls 

jindow 5,7,1,18:cls 

jindow 8,10,1,18:cls 

jindow 11,13,1,18:cls 

jindow 14,16,1,18:cls 
100 paper 6:wind0w 17,19, 1,18:cls 
110 paper 7:wind0w 2,19,19,25:cls 

120 GOTO 120 
run 

Orden. Especifica las dimensiones y situacion de una ventana de texto. Los valores de los 
parametros <izquierda>, <derecha>, <arriba> y <abajo> indican los numeros extremos de 
columna y de fila, y deben ser consistentes con el modo de pantalla actual. 

Si no se especifica la <expresion de numero de canal >, BASIC supone el #0. 

En la parte 2 del capftulo titulado Cuando usted guste...' daremos mas informacion sobre 
ventanas de texto. 

Palabras clave asociadas: WINDOW SWAP. 
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40 PAPER 


CL 


50 PAPER 1 


WI 


60 PAPER 2 


WI 


70 PAPER 3 


WI 


80 PAPER 4 


WI 


90 PAPER 5 


WI 



WWDOWSWAP 

Sintaxis: WINDOW SWAP <expresion de numero de canal>, 

<expresion de numero de canal > 

Ejemplo: 

10 MODE 1: INK 1,24:INK 2,9:INK 3,6 

20 WINDOW 21, 40,13, 25:PAPER 3 

30 WINDOW #1,1,20,1,12:PAPER #1,2 

40 CLS: PRINT " Ventana numero 0" 

50 CLS #1:PRINT #1," Ventana numero 1" 

60 LOCATE 1,6 

70 PRINT " Ventana roja (0)";SPC(2) 

80 LOCATE #1,1,6 

90 PRINT #1," Ventana verde (1)" 

100 FOR t=l TO 1000:NEXT 

110 WINDOW SWAP 0,1:G0T0 60 

run 

Orden. Intercambia las caracterfsticas de las dos ventanas de texto especificadas por las 
<expresiones de numero de canal >. 

Se deben especificar los dos numeros de canal, pero en este caso no deben ir precedidos del 
signo #. 

En la parte 2 del capftulo titulado 'Cuando usted guste...' daremos mas informacion sobre 
ventanas de texto. 

Palabras clave asociadas: WINDOW. 

WRITE 

Sintaxis: WRITE [#<expresion de numero de canal> , ][< lista de datos>] 
Ejemplo: 

10 REM escribir variables en disco 

20 INPUT "Escriba un numero: ",a 

30 INPUT "Escriba una palabra: ",a$ 

40 0PEN0UT "datos" 

50 WRITE #9,a,a$ 

60 CL0SE0UT: PRINT "Datos grabados en disco" 

run 

Orden. Envia los valores de los elementos de la < lista de datos > al canal especificado por la 
<expresion de numero de canal>. Los elementos iran separados por comas; las cadenas 
literales iran entre comillas. 

En el ejemplo anterior, los valores captados por el teclado son enviados al canal #9 (disco). 

Para leer esos valores despues de grabarlos en disco, se necesita un programa tal como el 
siguiente: 

10 REM leer variables del disco 

20 0PENIN "datos": INPUT #9,a,a$ 

30 CL0SEIN:PRINT "Los dos valores son:" 

40 PRINT:PRINT a,a$ 

run 
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Palabras clave asociadas: INPUT, LINE INPUT. 

XOR 

Sintaxis: <argumento> XOR <argumento> 

Ejemplo: 

IF "juan"<" P epe" XOR "perro">"gato" THEN PRINT "verdadero" ELSE PRINT "falso" 

falso 

IF "pepe"<"juan" XOR "gato">"perro" THEN PRINT "verdadero" ELSE PRINT "falso" 

falso 

IF "juan"<"pepe" XOR "gato">"perro" THEN PRINT "verdadero" ELSE PRINT "falso" 

verdadero 

PRINT 1 XOR 1 



PRINT XOR 



PRINT 1 XOR 

1 

Operador. Realiza la operacion logica 'o exclusive*' bit a bit entre enteros. El resultado es I a 
menos que ambos bits tengan el mismo valor. 

Para mas amplia informacion sobre operaciones logicas, consulte la parte 2 del capftulo titulado 
'Cuando usted guste ...'. 

Palabras clave asociadas: AND, OR, NOT. 

XPOS 

Sintaxis: XPOS 

Ejemplo: 

10 MODE 1:DRAW 320,200 

20 PRINT "Posicion horizontal del cursor grafico ="; 

30 PRINT XPOS 

run 

Funcion. Da el valor de la posicion horizontal <coordenada x> del cursor grafico. 
Palabras clave asociadas: MOVE, MOVER, ORIGIN, YPOS. 

YPOS 

Sintaxis: YPOS 

Ejemplo: 

10 MODE 1:DRAW 320,200 

20 PRINT "Posicion vertical del cursor grafico ="; 

30 PRINT YPOS 

run 

Funcion. Da el valor de la posicion vertical <coordenada y> del cursor grafico. 
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Palabras clave asociadas: MOVE, MOVER, ORIGIN, XPOS. 

ZONE 

Sintaxis: ZONE <expresion entera> 
Ejemplo: 

10 CLS:F0R z=2 TO 20 

20 ZONE z 

30 PRINT "X","X ZONE =";z:NEXT 

run 

Orden. Cambia la anchura de la zona de escritura (especificada en las instrucciones PRINT 
cuando se utiliza una coma para separar elementos). La achura implfcita es 1 3 columnas, pero se 
la puede cambiar al valor dado por la <expresion entera>, cuyo margen es de I a 255. 

Palabras clave asociadas: PRINT. 



Nota del revisor (2008): Basic 1.1 petite a Basic 1.0 

La version de BASIC incluida en los Amstrad CPC 6 1 28 y CPC664 (Locomotive Basic I.I) tiene 
algunas ampliaciones frente a la version de los CPC464 (Locomotive Basic I.I), como: 

• La funcion COPYCHR$ no existia en los 464. 

• La orden CURSOR no existfa en los 464. 

• La orden FILL no existfa en los 464. 

• La orden FRAME no existia en los 464, aunque se podia imitar con CALL &BD 1 9. 

• En los 464, las ordenes externas no permitfan usar cadenas de texto directamente, sino 
que se debfa utilizar una variable intermedia. Por ejemplo, en un 464 con unidad de disco 
externa, no se podia borrar un fichero con | ERA, "EJEMPLO" sino que habia que hacerlo 
en dos pasos: a$="EJEMPLO": | ERA, @a$ 



Manual de Amstrad CPC 6 1 28 (revision 2008) - Pagina 1 8 1 



Capitulo 4 - Discos y cintas 



Parte 1: Discos 

Discos de trabajo 

En esta seccion vamos a explicar como preparar discos para el trabajo diario y a presentar 
algunas funciones de CP/M y sus programas de ayuda. 

Temas tratados: 

* Copia de los discos maestros. 

* Introduccion a CP/M Plus. 

* Utilizacion de los ficheros HELP. 

* Utilizacion de una y dos unidades de disco. 

* Copia de ficheros con PIP. 

* Trabajo con discos para BASIC (sin CP/M). 

* Instalacion de aplicaciones "Nave en mano" en BASIC de AMSTRAD. 

* Instalacion de aplicaciones "Nave en mano" en CP/M Plus. 

* Introduccion al GSX. 

* Trabajo con CP/M 2.2. 

En la parte 7 del Curso de introduccion' hemos explicado como inicializar un disco virgen para 
utilizarlo tanto con BASIC como con CP/M. 

En la parte 10 del Curso de introduccion' vimos como copiar discos con el programa DISCKIT3 
(cara I del juego de discos del sistema). 

En esta seccion vamos a abordar la preparacion de discos con los programas deseados. 

Copia de los discos maestros 

Es muy importante hacer una copia de los discos maestros del sistema y de ayudas que se 
suministran con el ordenador y guardar en lugar seguro los originales, pues seria muy costoso 
sustituirlos si resultaran dahados. Recuerde que cada disco tiene dos caras, por lo que en los 
discos maestros hay en total cuatro caras: 

• La cara I es la mas importante; contiene el sistema operativo CP/M Plus y un conjunto 
de programas de ayuda para el manejo de discos. 

• La cara 2 contiene una serie de ficheros para programacion en ensamblador. 

• La cara 3 contiene Dr. LOGO, diversos ficheros 'HELP' y el sistema GSX (que describi- 
remos mas adelante). 

• La cara 4 contiene el CP/M 2.2 y el Dr. LOGO que se suministra con los modelos 
CPC664 y CPC464+ DDII; los incluimos por razones de compatibilidad, pero 
normalmente no seran necesarios. 
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Considere sus copias de los discos maestros como una 'biblioteca' de programas. Para ejecutar 
uno de estos programas, el procedimiento habitual es insertar en la unidad el 'disco de biblioteca' 
en el que se encuentre el programa y cargarlo con el, en lugar de copiar el programa en un disco 
nuevo y cargarlo desde este. 

Insistimos una vez mas en que los 'discos de biblioteca' para el trabajo diario tienen que ser 
copias de los discos maestros que se suministran con el ordenador. 

Recuerde que el programa DISCKIT3 (cara I) inicializa el disco destino al mismo tiempo que 
copia, de modo que se puede hacer una copia en un disco virgen sin necesidad de inicializarlo 
previamente. 

Introduction a CP/MPlus 

El lector ya se habra habituado a trabajar con el BASIC de AMSTRAD, programa que controla el 
CPC6 1 28 desde el momento en que se lo enciende hasta que, o bien se ejecuta algun programa 
binario desde AMSDOS, o bien se carga CP/M Plus con la orden externa cpm. 

Una vez cargado CP/M Plus, el ordenador no necesita volver a leer la cara I (salvo, por 
supuesto, que se quiera cargar alguno de los programas de ayuda que estan grabados en esa 
cara). Por esta razon, el disco de arranque es el unico que tiene que ser un disco de sistema; 
todos los demas pueden tener formato 'de datos', lo que les da mayor capacidad de 
almacenamiento. 

Para ejecutar un programa de CP/M lo unico que hay que hacer es insertar el disco en el que 
este grabado y escribir el nombre del programa. Los datos utilizados por el programa pueden 
estar en el mismo disco o en otro. CP/M Plus permite cambiar discos, lo mismo que AMSDOS. 
Si por comodidad se prefiere agrupar varios programas en un mismo disco, quiza junto con 
algunos programas de ayuda, se puede utilizar el programa PIP de la cara I segun explicaremos 
mas adelante (en este capitulo y en el siguiente). 

El programa PROFILE 

El disco del sistema contiene un fichero especial, llamado PROFILE. SUB, que contiene una serie 
de ordenes que se ejecutan automaticamente en el momento de cargar CP/M Plus. Si no lo ha 
hecho todavfa, inserte en la unidad una copia de la cara I de los discos maestros, cargue CP/M 
Plus y, cuando aparezca el mensaje A>, escriba: 

REN PROFILE. SUB=PROFILE. ENG 

Esta orden ha creado el fichero PROFILE. SUB a partir de PROFILE. ENG cambiandole el 
nombre (REN es abreviatura de rename, "renombrar"). Este fichero, que sera ejecutado siempre 
que se cargue CP/M Plus, contiene las siguientes ordenes: 

SETKEYS KEYS.CCP 
LANGUAGE 3 

las cuales modifican la funcion de las teclas del cursor (para adaptarlas a la escritura de ordenes 
de CP/M) y transforman la salida por la pantalla de la version EE.UU. a la version UK (Reino 
Unido), haciendo que latecla [SHIFT]3 genere el sfmbolo '£'. 

Cuando el teclado ha sido preparado con la orden SETKEYS. CCP, las Ifneas de ordenes de CP/ 
M se pueden editar de forma similar a como se hace en BASIC. En el capftulo 5, parte 2, 
explicaremos SETKEYS detalladamente. 
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Elprograma HELP 

En la cara 3 de los discos del sistema esta grabado un programa especial, llamado HELP; es una 
especie de manual de instrucciones electronico que describe los programas de ayuda de CP/M 
Plus. Para ejecutar este programa, inserte la cara 3 y escriba, tras el mensaje A>, lo siguiente: 

HELP 

El programa le hara las preguntas y le pedira las respuestas necesarias para guiarle hasta la 
informacion requerida. 

iCudntas unidades de disco? 

Cuando se carga CP/M Plus, una de sus primeras acciones es detectar cuantas unidades de disco 
hay conectadas. Este numero se visualiza como parte del mensaje de presentacion. El resultado 
de la comprobacion se puede falsear si en la segunda unidad hay un disco parcialmente 
insertado. 

Todos los mensajes de error relativos a los mecanismos de las unidades de disco se visualizan en 
la Ifnea 25, en forma de cinta "sin fin". Los programas solamente utilizan las primeras 24 Ifneas de 
la pantalla. 

Cuando solamente se dispone de la unidad de disco incorporada al ordenador, en la ultima Ifnea 
de la pantalla aparece tambien el mensaje 'Drive is A:' o 'Drive is B:' ("la unidad es . . . "). De esta 
forma CP/M Plus permite utilizar un solo dispositivo ffsico como si se tratase de dos. Cuando sea 
necesario, el usuario tendra que intercambiar los discos; el ordenador pedira en cada momento 
el disco requerido por el programa. Este sistema hace que no sea imprescindible comprar la 
segunda unidad de disco, pero no puede evitar la necesidad de intercambiar los discos, a veces 
muy frecuentemente, lo que representa una considerable perdida de tiempo y un riesgo de 
error humano. 

Copia deficheros de un disco a otro 

El programa de ayuda PIP (abreviatura de Periferal Interchange Program, "programa de 
intercambio entre perifericos") permite, entre otras cosas, copiar ficheros de un disco a otro: 

Para cargar PIP, inserte en la unidad la cara I y escriba, tras el mensaje A>, lo siguiente: 

PIP 

Un nuevo signo 'inductor', el *, indicara que PIP ha quedado cargado correctamente. 
Normalmente se copiara de un disco fuente (en la unidad A:) a un disco destino (en la unidad 
B:). Ya hemos visto que en los sistemas de una sola unidad de disco las unidades A: y B: son el 
mismo dispositivo ffsico. 

Para copiar un fichero (por ejemplo, el SUBMIT.COM), escriba despues del * lo siguiente: 

B:=A:SUBMIT.COM 

Para copiar todos los ficheros del disco fuente al disco destino, escriba: 

D . = * * 

Para abandonar PIP, pulse [RETURN] tras el inductor *. 

PIP es un programa muy complejo. En el capftulo 5 lo describiremos mas detalladamente. 
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Disco para BASIC (sin CP/M) 

Como ya hemos mencionado, el unico disco que se necesita con formato de sistema es el que se 
utiliza para cargar CP/M Plus. Por lo tanto, los discos destinados a BASIC pueden tener formato 
'de datos', con el cual la capacidad de almacenamiento es algo mayor. 

El disco debe ser inicializado con el programa DISCKIT3. Para copiar programas se puede 
utilizar PIP (cara I), o bien cargarlos (LOAD) y grabarlos (SAVE) desde BASIC. 

Discos Have en mono de BASIC de AMSTRAD 

Si usted compra una aplicacion escrita en BASIC de AMSTRAD para el CPC6 1 28, deberfa estar 
lista para funcionar sin mas preparativos. Todo lo que tendra que hacer es copiarla en un disco 
de trabajo y guardar el original. 

Programas Have en mono de CP/M 

El sistema operativo CP/M permite disponer de una inmensa variedad de programas que han 
sido escritos para los ordenadores personales que pueden trabajar con CP/M. El funcionamiento 
basico de los programas ya esta decidido; todo lo que hay que hacer es instalarlos en un disco 
adecuado y quiza informarles del metodo de gestion de la pantalla caracterfstico del CPC6 1 28. 

Un conjunto de programas disehado para realizar una aplicacion especffica es lo que se 
denomina un 'paquete'. Los paquetes estan disehados normalmente para funcionar en diversos 
ordenadores, cada uno de los cuales tendra un propio metodo de gestion de la pantalla y de 
movimiento del cursor. 

El CPC6I28, cuando funciona con CP/M, esta dotado de un 'emulador de consola'; las 
caracteristicas son diferentes de los codigos de control utilizados por BASIC. 

En ocasiones el paquete que usted adquiere ya habra sido 'instalado' en el Amstrad; de lo 
contrario, ofrecera un menu para realizar la adaptacion. Si el programa da instrucciones para el 
protocolo Zenith ZI9/Z29, sfgalas. Si no menciona esta variante ni tampoco una especffica de 
Amstrad, consulte la seccion titulada Configuracion de un programa en CP/M', en la que se 
indica que codigos se deben mandar a la pantalla para producir los efectos requeridos por los 
paquetes. Generalmente, la instalacion (o adaptacion) requerira que se tecleen los codigos 
adecuados cuando el programa lo pida. Siga, en todo caso, las instrucciones suministradas con 
los programas. 

El paquete que usted adquiera tiene que estar en un disco adecuado para este sistema. Casi 
todos los ordenadores tienen su propio formato de disco. Aunque el tamaho sea el mismo, no 
por ello esta garantizada la compatibilidad. Al comprar un paquete de programas, pida a su 
proveedor la version para Amstrad CPC6 1 28 en discos de 3 pulgadas. 

Creadon de un disco de trabajo para programas Have en mono de CP/M 

Es aconsejable copiar los programas del paquete en otro disco y guardar el original. Ademas, 
suele ser conveniente copiar en el mismo disco el programa SETKEYS.COM, y quiza tambien 
SUBMIT.COM (con sus correspondientes ficheros de instrucciones). 

Se puede utilizar PIP para copiar los ficheros .COM, y tambien para elaborar un fichero de 
instrucciones para SUBMIT. En esta ultima aplicacion PIP funciona como sencillo editor de 
Ifneas. Por ejemplo, el fichero LOG03.SUB de la cara 3 se podrfa haber creado de la siguiente 
forma: 

(Inserte el disco del sistema, cara I , en la unidad A:.) Escriba: 
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PIP 



(Extraiga el disco del sistema e inserte el de destine) Escriba: 

L0G03.SUB=C0N: 
SETKEYS KEYS.DRL 
[CONTROL] J L0G03 
[CONTROL] M 



Configuration de unprograma de CP/M 

El CPC6 1 28 maneja una amplia variedad de codigos de control, gracias a los cuales se lo puede 
adaptar a cualquier programa escrito para CP/M. La mayor parte de los programas de proceso 
de datos, asf como muchos otros paquetes de aplicaciones, necesitan poder escribir mensajes en 
determinados lugares de la pantalla, leer caracteres escritos en ella y entender los codigos de 
movimiento del cursor. 

Si su paquete de programas ya ha sido adaptado al ordenador Amstrad, no es necesario que se 
preocupe por estas cuestiones. 

Configuration de la salida de un paquete 

La instalacion de un paquete requiere normalmente la ejecucion de un programa especial 
(habitualmente llamado INSTALL) el cual, si no menciona terminales del tipo ZI9/Z29 ni el 
CPC6 1 28 espeefficamente, hara al usuario una serie de preguntas sobre las caracteristicas de la 
pantalla del 6 1 28. Para introducir las respuestas necesitara consultar la tabla siguiente, que es un 
resumen de la parte 1 5 del capftulo 7. 
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Codigos de control 


Hexadecimal 


Decimal 


Operacion 


[BEL] 


&07 


7 


Producir un pitido 


[BS] 


&08 


8 


Cursor a la izquierda una posicion 


[LF] 


&0A 


10 


Cursor abajo una Ifnea 


[CR] 


&0D 


13 


Cursor al borde izquierdo de la ventana, 
en la Ifnea actual 


[ESC]A 


&IB&4I 


27 65 


Cursor arriba una Ifnea 


[Esqc 


&IB&43 


27 67 


Cursor a la derecha una posicion 


[ESC]E 


&IB&45 


27 69 


Borrar pantalla 


[ESC]H 


&IB&48 


27 72 


Cursor a su posicion inicial (extremo 
superior izquierdo de la ventana) 


[ESC]J 


&IB&4A 


27 74 


Borrar desde la posicion actual del cursor 
inclusive hasta el final de la pantalla 


[ESC]K 


&IB&4B 


27 75 


Borrar desde la posicion actual del cursor 
inclusive hasta el borde derecho de la 
pantalla 


[ESC]L 


&IB&4C 


27 76 


Insertar Ifnea 


[ESC]M 


&IB&4D 


27 77 


Borrar Ifnea 


[ESC]N 


&IB&4E 


27 78 


Borrar el caracter que esta en la posicion 
del cursor 


[ESC]Y 


&IB&59 
<cxf> 


27 89 
<cxf> 


Llevar el cursor hasta la posicion especifi- 
cada de la pantalla, donde <c> es el 
numero de co lumna mas 32 y <f> es el 
numero de fila mas 32 


[ESC]d 


&IB&64 


27 100 


Borrar desde el principio de la pantalla 
hasta la posicion actual del cursor inclusive 


[ESC]o 


&IB&6F 


27 II 1 


Borrar desde el borde izquierdo de la 
pantalla hasta la posicion actual del cursor 
inclusive 


[ESC]p 


&IB&70 


27 112 


Activar video inverso (intercambio de 
colores de papel y pluma) 


[ESC]q 


&IB&70 


27 113 


Desactivar video inverso 



Configuration de la entrada a unpaquete 

Los programas del paquete generalmente necesitaran captar datos a traves del teclado. Casi 
todas las teclas del CPC6 1 28 generan valores estandar, a excepcion de las de movimiento del 
cursor. Se puede utilizar SETKEYS para redefinir los codigos producidos por el teclado; sin 
embargo, es preferible adaptar cada programa para que acepte los codigos estandar. 
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Lamentablemente, no hay ninguna norma general comun a todos los programas en cuanto a que 
teclas se deben pulsar para realizar las diversas funciones de control. Los caracteres visibles, el 
'espacio', [TAB] y [RETURN] estan bastante estadarizados; pero en cambio es notorio el 
desacuerdo en el Yetroceso del cursor', y mucho mas en las restantes funciones. Comparese, 
por ejemplo, los codigos que significan 'cursor al principio de Ifnea' en los siguientes casos: 

En CP/M: [CONTROL] B 

En Dr. LOGO: [CONTROL]A 

En ciertos procesadores de texto: [CONTROL]Q S 

Con los discos del sistema se suministran tres juegos de definiciones del teclado (parte 2 del 
capitulo 5). Por ejemplo, 

SETKEYS KEYS.CCP 

orden ya descrita como una de las que ejecuta automaticamente el programa PROFILE. SUB, 
adapta el teclado para la escritura de ordenes de CP/M. 

Ejecucion de unpaquete llave en mono de CP/M 

Normalmente, basta con escribir el nombre del programa a la derecha del mensaje inductor 
A>. Por ejemplo, para poner en marcha un programa de nominas llamado NOMINAS.COM se 
escribiria, sencillamente, 

NOMINAS 

Si alguna configuracion requiere cierta preparacion, quiza incluya un fichero de tipo .SUB. Un 
ejemplo es el L0G03.SUB que esta grabado en la cara 3. Este fichero se invoca mediante la 
orden 

SUBMIT L0G03 

Para examinar el fichero se puede escribir 
TYPE L0G03.SUB 

y se comprueba que contiene 

SETKEYS KEYS. DRL ... para redefinir el teclado 

LOGOS ... para ejecutar el programa Dr. LOGO 

SETKEYS KEYS. CCP ... para devolver el teclado a la situacion inicial 



Arranque automdtico de unpaquete llave en mono en CP/M 

Se puede hacer que cada vez que se cargue el sistema operativo CP/M Plus con el disco de 
arranque, el propio sistema ponga en marcha un programa concrete La forma de conseguirlo es 
poner el nombre del programa al final del fichero PROFILE. SUB que haya en ese disco. 

Introduction al GSX 

GSX es un sistema de gestion de graficos que permite a los programas de CP/M dar como salida 
graficos ademas de texto. Se utiliza GSX para aplicaciones tales como dibujar diagramas de 
barras y de sectores o para escribir encabezamientos y textos con tipos de letra y tamahos 
distintos de los normales. En la figura siguiente se muestra una reproduccion de una salida tfpica 
obtenida con GSX. Las salidas se pueden dirigir a la pantalla, a una impresora o a un plotter. 
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El sistema GSX por sf mismo no es capaz de dibujar, por lo mismo que CP/M no puede realizar 
proceso de textos: se requiere en cada caso un programa especffico. El ejemplo de la figura se 
obtuvo mediante el programa 'DR. Graph' de Digital Research. Lo que sf hace GSX es 
estandarizar el acceso a pantallas, impresoras y plotters, de forma que los programas de 
aplicacion sean transportables de unas maquinas a otras sin requerir mas que un mfnimo de 
trabajo de reinstalacion. 

Para crear un disco con el que se puedan ejecutar programas GSX, copie (de la cara 3), 
mediante PIP, los ficheros GSX.SYS, ASSIGN. SYS y los controladores de dispositivo requeridos 
(junto con el propio programa de aplicacion) en un disco vacio. El fichero ASSIGN. SYS contiene 
una lista de hasta tres controladores de dispositivo, en orden inverso de su tamaho: 

21 a:ddfxlr7 ; Epson 7 bit printer 
11 a:ddhp7470 ; Pen plotter 

01 a:ddmode2 ; Screen in mode 2 

02 a:ddmodel ; Screen in mode 1 

03 a:ddmode0 ; Screen in mode 

( impresora Epson de 7 bits / plotter / pantalla en modo 2 / pantalla en modo I / pantalla 
en modo 0) 

Los numeros (01 a 21) informan a GSX del tipo de dispositivo de que se trata (impresora, 
plotter o pantalla). En todo momento no hay mas que un controlador de dispositivo cargado en 
la memoria; por eso GSX necesita conocer el tamaho del mayor con el fin de reservarle el 
espacio necesario. 

Con los discos se proporcionan diversos controladores para los tres modos de pantalla del 6 1 28 
y para las impresoras y plotters estandar. El fichero DRIVERS. GSX contiene una lista de los 
disponibles. Lea este fichero insertando en la unidad la cara 3 y escribiendo tras el mensaje A> 
lo siguiente: 

TYPE DRIVERS. GSX 
para seleccionar los controladores de dispositivo requeridos. 
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Test Diagram 

Ken's wages in pence 



•Fin 2 100.ee. 



■Fill 7 150.08 



■Fill 4 100.00 ^ 



■Fill 5 50.00 




100.00 -Fill 1 



100.00 -Fill 



100.00 -Fill 3 



100.00 -Fill 6 



Un ejemplo de salida por impresora obtenida con GSX 

Normalmente los programas de aplicacion incluiran un cargador de GSX, de modo que para 
ejecutar el programa bastara con escribir el nombre del programa en respuesta al mensaje A>. 
No obstante, si su aplicacion no tiene instalado el cargador de GSX, copie el fichero 
GENGRAF.COM (cara 3) en su disco de trabajo y luego escriba 

GENGRAF PROGRAMA 

donde PROGRAMA.COM es el nombre de la aplicacion no instalada. Ahora puede borrar 
GENGRAF.COM, puesto que PROGRAMA.COM ya contiene el cargador de GSX. 

Trabajo con CP/M2.2 

A diferencia de CP/M Plus, CP/M 2.2 (que es una version anterior) es muy exigente en cuanto al 
cambio de discos. Frecuentemente requiere que se vuelva a cargar parte del sistema operativo 
con un disco de sistema instalado en la unidad A:, en particular cuando reaparece el mensaje 
inductor A> despues de ejecutar un programa. Por esta razon se suelen utilizar con CP/M 2.2 
discos con formato de sistema. Cuando no se dispone de segunda unidad de disco, para copiar 
ficheros hay que utilizar FILECOPY en lugar de PIP. 

Se recomienda no utilizar CP/M 2.2 mas que para ejecutar programas disehados para los 
modelos CPC664 y CPC464 + DDI I , los cuales pueden no ser compatibles con CP/M Plus. 

Advertencia. Algunas aplicaciones escritas para los modelos CPC664 y CPC464 + DDII 
contienen ciertas instrucciones especfficas de la maquina y no funcionaran, por tanto, con CP/M 
Plus. En tales casos sera necesario utilizar CP/M 2.2, que esta grabado en la cara 4 del juego de 
discos que se suministra con el ordenador CPC6 1 28. 
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Parte 2: Cintas 

Se puede conectar un magnetofono de cassettes al sistema (segun se explico en la parte 2 del 
'Curso de introduccion'). Cuando se especifica el funcionamiento con magnetofono mediante la 
orden tape, algunas instrucciones de BASIC funcionan de forma diferente. Por ejemplo, en la 
pantalla se veran ciertos mensajes que no aparecen cuando se esta trabajando con discos. 

Nota. En algunos magnetofonos las funciones de avance rapido y rebobinado estan controladas 
por el control remote En tal caso, para hacer avanzar o retroceder la cinta en modo rapido se 
debe, o bien desconectar la clavija REM del magnetofono, o bien escribir la orden |TAPE:CAT, 
con el fin de activar el movimiento del motor. La orden CAT se cancela con la tecla [ESC]. 

A diferencia de lo que ocurre con el sistema de grabacion en disco, los nombres de los ficheros 
que se graban en cinta no tienen que sujetarse a normas estrictas. Pueden constar de hasta 1 6 
caracteres y contener espacios y signos de puntuacion. En determinados casos, ni siquiera son 
necesarios. 

A continuacion damos una lista de las diferencias entre las dos versiones (cinta y disco) de las 
instrucciones citadas. Las descripciones de las instrucciones se encuentran en el capftulo 3 ('Lista 
completa de las palabras clave del BASIC de AMSTRAD'). 

CAT 

El ordenador le pedira: 

Press PLAY then any key: 

(Pulse PLAY y luego cualquier tecla.') Usted debe pulsar el boton PLAY ('reproducir') del 
magnetofono y despues una de las teclas del ordenador. El motor del magnetofono empezara a 
moverse y el ordenador escribira en la pantalla la lista de los ficheros que haya en la cinta a 
medida que los vaya encontrando. 

Para cada fichero se mostrara cada uno de los bloques integrantes, seguidos de un caracter que 
indica el tipo de fichero: 

• $ fichero de BASIC no protegido 

• % fichero de BASIC protegido 

• * fichero ASCII 

• & fichero binario 
El ordenador escribe 

Ok 
al final de la Ifnea cuando ha terminado de leer sin incidentes el fichero; esto indica que habrfa 
podido cargar el fichero en memoria si lo hubiera intentado. 

La instruccion CAT no afecta al programa residente en la memoria del ordenador. Si un fichero 
ha sido grabado sin nombre, CAT escribe 

Unnamed file 

('fichero sin nombre'). 

El proceso se puede interrumpir en cualquier momento pulsando [ESC]. 
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Errores de lectura 

Si no aparecen en la pantalla los mensajes mencionados, o si aparece 

Read error a ... o bien ... Read error b 

puede estar ocurriendo lo siguiente: 

1 . El magnetofono no esta conectado correctamente en el zocalo CINTA del ordenador 
(vease la parte 2 del 'Curso de introduccion'). 

2. No esta correctamente ajustado el control VOLUMEN del magnetofono. 

3. La cinta esta gastada o es de baja calidad. 

4. La cinta ha estado sometida a un campo magnetico (se la ha dejado cerca de un altavoz, 
televisor, etc.). 

5. Se esta tratando de leer una cinta incompatible con los ordenadores AMSTRAD. 
CHAIN 

CHAINMERGE 

LOAD 

MERGE 

RUN 

No es necesario especificar el nombre del programa si se pretende leer el primero que el 
ordenador encuentre en la cinta. Ejemplos: 

CHAIN "" 

CHAIN "" , 100 

CHAIN MERGE "" 

CHAIN MERGE "",100 

CHAIN MERGE "" ,100, DELETE 30-70 

LOAD "" 

LOAD "" ,&1F40 

MERGE "" 

RUN "" 

(Notese que esta ultima orden se ejecuta pulsando la tecla [INTRO] en combinacion con 
[CTRL] I ; previamente se debe haber ejecutado | tape.) 

El ordenador le pedira: 

Press PLAY then any key: 

(Pulse PLAY y luego cualquier tecla.') Usted debe pulsar el boton PLAY del magnetofono y 
despues una de las teclas del ordenador. El motor del magnetofono empezara a moverse y el 
ordenador cargara el fichero. 

En la pantalla se mostraran los mensajes de carga: 

Loading N0MBREFI block 1 
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y asf sucesivamente para los restantes bloques hasta que el fichero este cargado. 

Si el primer caracter del nombre del fichero es ! se suprimen todos los mensajes citados, y usted 
debe asegurarse de que ha pulsado el boton PLAY. En el caso de los ficheros grabados en disco, 
el ordenador ignora el distintivo !. Observe que el signo ! no cuenta a efectos de la longitud del 
nombre del fichero. 

Si se abandona el proceso pulsando la tecla [ESC], se provoca el mensaje 

Broken in 

Si no consigue cargar el fichero, lea el apartado 'Errores de lectura' anterior. 

iAtencion! El interfaz del disco ocupa una pequeha porcion de la memoria del ordenador, la 
cual ha sido aprovechada en algunos programas comerciales escritos para ser cargados en el 
CPC464 desde la cinta. Tales programas no funcionaran correctamente en el CPC6 1 28. 

EOF 

P0S(#9) 

Estas funciones operan igual con cinta que con disco. 

INPUT #9 
LINE INPUT #9 
OPENIN 

CLOSEIN 

No es necesario especificar el nombre del fichero si se desea leer el primer fichero que el 
ordenador encuentre en la cinta. Ejemplo: 

OPENIN "" 

El ordenador le pide que: 

Press PLAY then any key: 

(Pulse PLAY y luego cualquier tecla.') Usted debe pulsar el boton PLAY del magnetofono y 
despues una de las teclas del ordenador. La cinta empezara a moverse y el ordenador cargara 
los primeros 2K del fichero en una zona de memoria denominada 'tampon'. El programa toma 
los datos del tampon. Cuando se vacfa, el ordenador vuelve a emitir el mensaje: 

Press PLAY then any key: 

y carga los 2K siguientes. 

En la pantalla van apareciendo los mensajes de carga: 

Loading NOMBREFI block 1 

para los sucesivos bloques. 
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Si el primer caracter del nombre del fichero es ! se suprimen todos los mensajes citados; usted 
debe asegurarse de que ha pulsado el boton PLAY. En el caso de los ficheros grabados en disco, 
el ordenador ignora el distintivo !. Observe que el signo ! no cuenta a efectos de la longitud del 
nombre del fichero. 

Si se abandona el proceso pulsando la tecla [ESC], se provoca el mensaje 

Broken in 

Si no consigue cargar el fichero, lea el apartado 'Errores de lectura' anterior. 

LIST #9 

OPENOUT 

CLOSEOUT 

PRINT #9 

WRITE #9 

No es necesario especificar el nombre del fichero si se desea grabarlo como Unnamed file 
(fichero sin nombre). Ejemplo: 

OPENOUT "" 

El ordenador va enviando datos a una porcion de la memoria denominada 'tampon', cuya 
capacidad es de 2 K. Cuando se llena el tampon, el ordenador pide que 

Press REC and PLAY then any key: 

(Pulse REC y PLAY y luego cualquier tecla.') Usted debe pulsar los botones REC y PLAY del 
magnetofono y despues una de las teclas del ordenador. La cinta empezara a moverse y el 
ordenador grabara en ella el contenido del tampon. El ordenador sigue enviando datos al 
tampon; cada vez que se llena vuelve a emitir el mensaje 

Press REC and PLAY then any key: 

y comienza a grabar los 2K en la cinta. 

Si el tampon esta parcialmente ocupado cuando se ejecuta la orden CLOSEOUT, el ordenador 
vuelve a emitir el mensaje. 

Press REC and PLAY then any key: 

tras lo cual vacia el tampon hacia la cinta. 

Durante el proceso de grabacion apareceran en la pantalla los mensajes del tipo 

Saving NOMBREFI block (x) 

Si el primer caracter del nombre del fichero es ! se suprimen todos los mensajes citados; usted 
debe asegurarse de que ha pulsado los botones REC y PLAY del magnetofono. En el caso de los 
ficheros grabados en disco, el ordenador ignora el distintivo I. Observe que el signo ! no cuenta a 
efectos de la longitud del nombre del fichero. 
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Si se abandona el proceso pulsando [ESC], se provoca el mensaje: 

Broken in 

Calidad de la grabacion 

Para asegurar la fiabilidad de la grabacion: 

1 . Compruebe que el magnetofono esta correctamente conectado al zocalo CINTA del 
ordenador (vease la parte 2 del 'Curso de introduccion'). 

2. Ajuste adecuadamente el control del nivel de entrada del magnetofono (si lo tiene). 

3. No utilice cintas de baja calidad, ni de duracion CI 20. (Recomendamos las cintas 
AMSOFTCI5.) 

4. Asegurese de no dejar las cintas sometidas a la influencia de campos magneticos (cerca 
de altavoces, televisores, etc.) 

5. Antes de borrar el programa de la memoria, compruebe que ha quedado correcta-_ 
mente grabado rebobinando la cinta y verificando su contenido mediante la orden CAT. 

6. De a su magnetofono un mantenimiento periodico adecuado; en particular, limpie las 
cabezas con regularidad. 

SAVE 

No es necesario especificar el nombre del fichero si se desea grabarlo como Unnamed file 
('fichero sin nombre'). Ejemplo: 

SAVE "" 

El ordenador pide que 

Press REC and PLAY then any key: 

(Pulse REC y PLAY y luego cualquier tecla.') Usted debe pulsar los botones REC y PLAY del 
magnetofono y despues una de las teclas del ordenador. La cinta empezara a moverse y el 
ordenador grabara en ella el programa. 

Durante el proceso de grabacion apareceran en la pantalla los mensajes del tipo Saving 
NOMEREFI block I 

Si el primer caracter del nombre del fichero es se suprimen todos los mensajes citados; usted 
debe asegurarse de que ha pulsado los botones REC y PLAY del magnetofono. En el caso de las 
ficheros grabados en disco, el ordenador ignora el distintivo !. Observe que el signo no cuenta a 
efectos de la longitud del nombre del fichero. 

Si se abandona el proceso pulsando [ESC], se provoca el mensaje 

Broken in 

Lea el apartado Calidad de la grabacion' anterior. 

SPEED WRITE 

Esta orden solo afecta a la cinta, pero puede ser ejecutada cuando el ordenador esta trabajando 
con el disco. 
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Mensajes de error 

El sistema de cinta puede generar los mensajes 7, 2 1 , 24, 25, 27 y 32 (vease la parte 3 del 
capitulo titulado 'Para su referenda ...'). 

Ordenes externas de AMSDOS 



| TAPE 

especifica que las entradas y salidas se deben dirigir a la cinta. Esta orden se puede subdividir en 

| TAPE. IN 

para las entradas y 

|TAPE.OUT 

para las salidas. 

| DISC 

especifica que las entradas y salidas se deben dirigir al disco. Esta orden se puede subdividir en 

| DISC. IN 

para las entradas y 

| DISC.OUT 

para las salidas. 

Las ordenes 

|A 

|B 

|CPM 

|DIR 

| DRIVE 

| ERA 

| REN 

| USER 

se ejecutan siempre con el disco, aun cuando se haya seleccionado la cinta con las ordenes 
tape. 
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Capitulo 5 - AMSDOS y CP/M 



Parte 1: AMSDOS 

Temas tratados: 

* Introduccion a AMSDOS 

* Directorio del disco 

* Cambio de discos 

* Nombres y tipos de ficheros 

* Cabeceras de fichero en AMSDOS 

* Nombres de fichero con dos unidades de disco 

* Sfmbolos comodfn 

* Ejemplo de programa con ordenes de AMSDOS 

* Gufa de referencia de las ordenes de AMSDOS 

* Manejo y copia de ficheros 

* Gufa de referencia de los mensajes de error 

Introduccion 

AMSDOS amplfa el BASIC suministrado con su ordenador al ahadirle algunas ordenes externas, 
identificadas por el signo que las precede. 

AMSDOS permite cambiar libremente los discos siempre que no haya ningun fichero abierto. Si 
lo hay, emite un mensaje de error y se puede producir una perdida de datos si el fichero estaba 
abierto para escritura (en direccion de salida). 

Directorio del disco 

Todos los discos tienen dos secciones: el directorio y el area de datos. El directorio contiene la 
lista de los nombres de los ficheros y un 'mapa' de la organizacion del area de datos. AMSDOS y 
CP/M pueden calcular el tamaho de un fichero consultando su reseha en el directorio. El calculo 
del espacio libre se realiza sumando las longitudes de todos los ficheros y restandolo de la 
capacidad total del disco. 

Cada vez que se va a leer de un fichero, se consulta su reseha en el directorio para averiguar su 
situacion en el disco. Cuando se crea un fichero nuevo, se le reserva espacio en el disco. Cuando 
se borra un fichero, se libera el espacio por el ocupado. El directorio trabaja en unidades de IKy 
puede contener hasta 64 resehas. Los ficheros largos necesitan una reseha para cada I6K, si bien 
este hecho queda oculto y carece de importancia para el usuario. 

Cambio de discos 

AMSDOS (y CP/M Plus) permite el cambio o la extraccion del disco en todo momento en que 
no se este accediendo a el, suponiendo que no haya ningun fichero abierto en esa unidad. A 
diferencia de CP/M 2.2, no necesita 'reconocer' los discos. 
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Si se extrae un disco cuando se esta escribiendo en el, se pueden perder los datos grabados en 
el disco. En cuanto AMSDOS detecta que se ha extrafdo un disco habiendo ficheros abiertos en 
el, se abandonan todos los ficheros y se emite un mensaje de error. Los datos pendientes de 
escribir en el tampon de salida se perderan, y no se grabara la ultima reseha del directorio. No 
obstante, AMSDOS solamente detecta la extraccion del disco cuando consulta el directorio, lo 
que ocurre, con ficheros grandes, una vez cada 1 6K (y siempre que abre o cierra un fichero). 
Asi, es posible perder I6K de datos si se extrae un disco antes de cerrar todos los ficheros 
abiertos en el. 

Nombresy tipos de ficheros en AMSDOS 

Es costumbre dar a los ficheros nombres que incluyan un distintivo del tipo de fichero de que se 
trata. Este convenio no obliga al ordenador a utilizar los ficheros de una forma determinada, si 
bien hay programas que solamente aceptan ficheros de un tipo determinado. BASIC acepta 
ficheros de todo tipo, pero busca preferentemente ciertos tipos si no se le especifica otra cosa. 
(Vease la seccion 'Cabeceras de fichero en AMSDOS'.) 

Construction de los nombres de los ficheros 

El nombre del fichero consta de dos partes, separadas por un punto (.). La primera parte consta 
de 8 caracteres como maximo; la segunda puede contener hasta 3 caracteres. Asf, por ejemplo, 
"ROINTIME.DEM", "DISCKIT3.COM" y "DISC.BAS" son nombres correctos de fichero. 

La segunda parte del nombre del fichero es el distintivo de tipo. Los nombres y los distintivos 
pueden consistir en una mezcla cualquiera de letras y numeros, pero no pueden contener 
espacios ni signos de puntuacion. Algunos distintivos de tipo convencionales son los siguientes: 

• .<espacios> Tipo no especificado. Puede ser un fichero creado por OPENOUT 
"<nombrefi>", o bien un programa de BASIC grabado por AMSDOS con SAVE 
"<nombrefi>",A. 

• .BAS Programa de BASIC grabado con SAVE "<nombrefi>", con SAVE "<nombrefi>",P 
o con SAVE "<nombrefi>.BAS",A 

• .BIN Programa o zona de memoria grabados por AMSDOS con SAVE 
" < nombrefi > ", B, < parametros binarios > . 

• .BAK Este distintivo se asigna automaticamente a la version anterior de un fichero 
cuando AMSDOS o un programa de ayuda graban una version mas moderna con el 
mismo nombre. Esto permite que el usuario pueda utilizar o consultar la version anterior 
siempre que lo necesite. 

• .COM Fichero de orden (programa directamente ejecutable). Los programas de ayuda 
de CP/M son de este tipo. 

• .SUB Fichero de instrucciones para el programa SUBMIT de CP/M. 

Cabeceras de fichero en AMSDOS 

AMSDOS asigna automaticamente a los ficheros, distintivos de tipo adecuados cuando los graba, 
por lo que normalmente no es necesario especificar distintivo. Los ficheros de BASIC ordinarios, 
los ficheros de BASIC protegidos y los ficheros binarios se graban con un registro de cabecera, 
de forma que en el proceso de lectura la orden de AMSDOS 

LOAD "<nombrefi>" 
pueda reconocerlos y obrar en consecuencia. Si la orden LOAD no encuentra el registro de 
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cabecera, supone que se trata de un fichero ASCII, es decir, de un fichero de texto. 

Independientemente del registro de cabecera, cuando se pide a AMSDOS que cargue un fichero 
sin especificarle el distintivo de tipo, empieza por buscarlo con el distintivo 

.<espacios> 

Si no lo encuentra, busca uno del tipo 

.BAS 

y, finalmente, del tipo 

.BIN 

Esto permite que el usuario se despreocupe del distintivo de tipo en la mayor parte de los casos. 

Un fichero de disco creado por OPENOUT y escrito por BASIC carecera de registro de 
cabecera; su contenido estara en ASCII (es decir, texto normal escrito con las ordenes WRITE, 
PRINT o LIST de BASIC). La orden OPENIN busca los ficheros en el mismo orden que LOAD si 
no se especifica distintivo de tipo. 

Nombres de fichero con dos unidades de disco 

En los sistemas de dos unidades de disco (esto es, en aquellos a los que se ha conectado la 
unidad externa), puede haber ficheros en las dos unidades. El ordenador no busca los ficheros 
automaticamente en las dos unidades, por lo que el usuario debe especificar que unidad se va a 
utilizar. Se puede utilizar las ordenes | A, | B o | DRIVE (descritas mas adelante) para seleccionar 
una de las dos unidades; o bien, sin necesidad de modificar la unidad implfcita, se puede 
especificar A: o B: como prefijo del nombre del fichero (los numeros de usuario permiten 
participar el directorio). Asi, por ejemplo, 

|B 

SAVE "PROG. BAS" 

IA 



|A 

SAVE "B: PROG. BAS" 

graban el programa en la segunda unidad (B). 

Analogamente, se puede modificar transitoriamente la asignacion implicita de USER ('usuario', 
margen de a 15) poniendo el numero de usuario como prefijo del nombre del fichero. Asf, por 
ejemplo, 

LOAD "15: PROG. BAS" 



SAVE "15: PROG. BAS" 

cargan y graban el programa de la seccion del disco correspondiente al usuario numero 15, 
cualquiera que sea la asignacion implfcita de USER. (Vease mas abajo la descripcion de la orden | 
USER.) 
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Finalmente, se pueden modificar transitoriamente las asignaciones implicitas de USER y DRIVE a 
un tiempo especificando ambos (y en este orden) como prefijo del nombre del fichero. Por 
ejemplo, 

RUN "15B:PR0G.BAS" 

Simbolos comodin 

A veces se necesita realizar con el disco operaciones (catalogo, copia, borrado, etc.) que afecten 
a varios ficheros. Cuando se especifica un nombre de fichero para una determinada operacion, el 
sistema busca en el directorio un nombre que coincida exactamente con el especificado. Algunas 
ordenes pueden actuar sobre un conjunto de ficheros independientemente de alguno de los 
caracteres de su nombre. En vez de especificar los caracteres "indiferentes", en su lugar se pone 
el signo de interrogation ?. Si todo el bloque (o resto del bloque) del nombre del fichero o del 
distintivo de tipo es indiferente, el conjunto de signos de interrogacion se puede sustituir por un 
asterisco. Asf, por ejemplo, NOM.* es abreviatura de NOM.???, y F*.BAS es abreviatura de 
F???????.BAS. 

La expresion *.* significa "todos los ficheros". 

Ejemplos: 

Concuerdan con Concuerdan con Concuerdan con 
Directorio *.BAS NOM?. BAS N*.BA? 



BANCO. BAS BANCO. BAS 

N0M1.BAS N0M1.BAS N0M1.BAS N0M1.BAS 

N0M2.BAS N0M2.BAS N0M2.BAS N0M2.BAS 
N0M3.BAK N0M3.BAK 

N0M3.BAS N0M3.BAS N0M3.BAS N0M3.BAS 

NOMINA. BAS NOMINA. BAS NOMINA. BAS 



Ejemplos de utilization de ordenes deAMSDOS dentro de unprograma 

Para mejor asimilar las ordenes de AMSDOS, le recomendamos que introduzca en el ordenador 
y estudie los programas siguientes. No ejecute nunca estos programa con un disco maestro de 
CP/M instalado: los programas escriben datos en disco, y nunca se debe correr el riesgo de 
escribir sobre los discos maestros originales. Utilice una copia o un disco de trabajo. 

Grabacion de variables y volcado depantalla 

El siguiente programa dibuja la bandera britanica y graba la pantalla completa en disco. Para 
ejecutarlo es necesario poner en la unidad un disco inicializado. 

10 fichero$="volcpant.srn" 

20 MODE 1: BORDER 

30 DIM color(2) 

40 FOR i=0 TO 2 

50 READ col or (i): REM lee col ores de lista DATA 

60 INK i,color(i) 

70 NEXT 

80 ON ERROR GOTO 430 

90 0PENIN "param.dat" ' comprueba si existe fichero 

100 CL0SEIN ON ERROR GOTO 
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110 IF numerror=32 AND DERR=146 THEN CLS 

120 CURSOR 1:PRINT "Quiere escribir sobre el fichero" : PRINT "anterior? S/N"; 

130 a$=INKEY$:0N INSTR(" SN",UPPER$(a$)) GOTO 130,150,140:G0T0 130 

140 PRINT a$: PRINT "Fin del programa" :END 

150 PRINT a$: CURSOR 

160 OPENOUT "param.dat" 

170 WRITE #9,fichero$,l: REM graba nombre de fichero y modo 

180 FOR i=0 TO 2 

190 WRITE #9,color(i): REM graba col ores 

200 NEXT i 

210 CLOSEOUT 

220 CLS 

230 gp=l:GRAPHICS PEN gp:w=125 

240 x=-65:a=240:y=400:b=-150:G0SUB 400 

250 y=0:b=150:GOSUB 400 

260 x=575:a=-240:y=400:b=-150:G0SUB 400 

270 y=0:b=150:GOSUB 400 

280 gp=2:GRAPHICS PEN gp:w=40 

290 a=240:x=-40:y=400:b=-150:G0SUB 400 

300 x=0:y=0:b=150:G0SUB 400 

310 a=-240:x=640:y=0:b=150:G0SUB 400 

320 x=600:y=400:b=-150:G0SUB 400 

330 ORIGIN 0,0,256,380,0,400:CLG 1 

340 ORIGIN 0,0,0,640, 150, 250:CLG 1 

350 ORIGIN 0,0,280,352,0,400:CLG 2 

360 ORIGIN 0,0,0,640, 168, 230:CLG 2 

370 SAVE fichero$,b,&C000,&4000 

380 DATA 2,26,6 

390 END 

400 MOVE x,y:DRAWR a,b:DRAWR w,0:DRAWR a,-b 

410 MOVE x+a/2+w/2,y+b/2:FILL gp 

420 RETURN 

430 numerror=ERR: RESUME NEXT 

run 

Ffjese en los distintivos de tipo .DAT y .SRN. No tienen mas significado intrfnseco que 
recordarnos cual es su contenido. El fichero PARAM.DAT sera un fichero ASCII sin registro de 
cabecera, mientras que VOLCPANT.SRN es un fichero binario AMSDOS con cabecera. 

Observe que el programa trata de leer el fichero PARAM.DAT, para averiguar si existe, antes de 
escribir en el. Si no existe, BASIC genera un error, el cual es gestionado por el programa para 
que la ejecucion continue sin interrupcion. Si ya existe el fichero, no se genera error y el 
programa pregunta al usuario si desea escribir encima de el. 

En este fichero se graba informacion sobre el modo de pantalla, los colores y el nombre del 
fichero que contiene el volcado de pantalla. La Ifnea 1 70 ilustra como se puede utilizar un fichero 
de datos para escribir en el valores de variables (fichero$) y constantes (I) que luego hayan de 
ser utilizados por otro programa. 

Cargo, depantallas 

El siguiente ejemplo es un lector de volcados de pantalla que utiliza un fichero de parametros 
para controlar su accion. Observe como se leen los datos del fichero con INPUT y como se 
utiliza EOF para adaptar la lectura automaticamente al tamaho del fichero. Para que este 
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programa visualice correctamente el volcado de pantalla, es necesario que la grabacion se haya 
hecho en una posicion de memoria conocida, pues en caso contrario la imagen quedara 
desplazada. Esto se garantiza grabando el volcado despues de ejecutar una orden MODE y 
teniendo cuidado de que durante la formacion de la imagen no se desplace la pantalla. 

10 DIM color(15): REM preparacion para 16 colores 

20 OPENIN "param.dat" 

30 INPUT #9,nornbrefichero$,rnodopantal la 

40 i=0 

50 WHILE NOT EOF 

60 INPUT #9,color(i) 

70 INK i.color(i) 

80 i-i+1 

90 WEND 

100 CL0SEIN 

110 MODE modopantalla:B0RDER 

120 LOAD nombrefichero$ 

run 



Resumen de las ordenes externas de AMSDOS 

\A 

Sintaxis: |A 

Orden. Especifica que la unidad de disco implicita sea la A. Equivale a | DRIVE con parametro A. 
(La unidad incorporada al ordenador es la A.) 



Sintaxis: | B 

Orden. Especifica que la unidad de disco implicita sea la B. Equivale a | DRIVE con parametro B. 
(La unidad incorporada al ordenador es la A.) 



\CPM 

Sintaxis: | CPM 

Orden. Carga un sistema operativo de disco. Los sistemas operativos suministrados con el 
ordenador son CP/M Plus y CP/M 2.2. 



La ejecucion de esta orden no se puede completar si en la unidad no hay instalado un disco de 
sistema con CP/M. En concreto, CP/M Plus se carga con una copia de la cara I de los discos 
maestros suministrados con el ordenador; CP/M 2.2, con una copia de la cara 4. 
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\DIR 

Sintaxis: | DIR [,<expresion literal>] 
Ejemplo: 

|DIR,"*.BAS" 

Orden. Escribe en la pantalla el directorio del disco (al estilo de CP/M) y el espacio libre. Si se 
omite el parametro, se supone *.*. 



\DISC 

Sintaxis: | DISC 

Orden. Equivale a las ordenes | DISC. IN y DISC.OUT. 

\DISC.IN 

Sintaxis: | DISC.IN 

Orden. Especifica que las operaciones de lectura se deben hacer con el disco. 

\DISC.OUT 

Sintaxis: | DISC.OUT 

Orden. Especifica que las operaciones de escritura se deben hacer con el disco. 

\DRIVE 

Sintaxis: | DRIVE, <expresion literal> 
Ejemplo: 

| DRIVE, "A" 

Orden. Establece que unidad de disco se debe considerar como implfcita en lo sucesivo. Esta 
orden fallara si AMSDOS no consigue leer en la unidad especificada. 

\ERA 

Sintaxis: | ERA,<expresion literal > 
Ejemplo: 

|ERA,"*.BAK" 

Orden. Borra todos los ficheros que concuerden con la <expresion literal > y no sean de solo 
lectura. Admite sfmbolos comodfn. 
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\REN 

Sintaxis: | REN,<expresion literal>,<expresion literal> 
Ejemplo: 

| REN , " FI CHNU EV . BAS " , " FI CHANT I . BAS " 

Orden. Da un nuevo nombre a un fichero ya existente en el disco. No puede haber otro fichero 
con el nombre nuevo. No admite sfmbolos comodfn. 

Se puede incluir el parametro USER ('usuario', vease mas abajo) en la (expresion literal) para 
modificar transitoriamente la situacion implfcita. Por ejemplo, | 

REN,"0:NUEVO.BAS","I5:ANTIGUO.BAS" da al fichero "ANTIGUO.BAS" de USER 15 el nuevo 
nombre "NUEVO. BAS" en USER 0, cualquiera que sea el parametro de | USER especificado con 
anterioridad. 



\TAPE 

Sintaxis: | TAPE 

Orden. Equivale a las ordenes | TAPE. IN y | TAPE. OUT. Solamente actua Si esta conectado un 
magnetofono externo. 



\TAPKIN 

Sintaxis: | TAPE. IN 

Orden. Especifica que las operaciones de lectura se deben hacer con la cinta. Solamente actua si 
esta conectado un magnetofono externo. 



\TAPKOUT 

Sintaxis: | TAPE.OUT 

Orden. Especifica que las operaciones de escritura se deben hacer con la cinta. Solamente actua 
si esta conectado un magnetofono externo. 



\USER 

Sintaxis: | USER,<expresion entera> 
Ejemplo: 

|USER,3 

Orden. Determina con cual de las 16 secciones del directorio (areas de usuario, del al 15) 
deben actuar ciertas ordenes de manejo de disco (CAT, LOAD, | DIR, etc.). 
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Un fichero grabado en un area de usuario puede ser transferido a otra con la orden | REN. Asf, | 
REN,"I5:EJEMPLO.BAS","0:EJEMPLO.BAS" transfiere el fichero del area 15 al area sin 
cambiarle el nombre. 

Copia deficheros de disco a disco 

Ficheros de AMSDOS con cabecera 

Los ficheros de este tipo se pueden copiar desde CP/M mediante PIP y (vease la parte 2 de este 
capftulo). Los ficheros creados por AMSDOS con registro de cabecera (vease mas arriba) 
pueden ser copiados en bloque (disco a disco), pero en general su contenido no puede ser 
entendido por los programas de CP/M. 

Ficheros ASCII 

Los ficheros creados por AMSDOS sin registro de cabecera estaran generalmente en ASCII y 
son tanto copiables como entendibles por los programas de CP/M. En concreto, los ficheros de 
programa, de datos y de texto de ASCII son intercambiables entre AMSDOS y CP/M. 

Ficheros de 'solo lectura' 

Desde CP/M es posible hacer que un fichero sea de solo lectura y/o invisible a efectos de 
catalogo del directorio. Estas caracterfsticas solo se pueden establecer o anular desde CP/M, 
pero son respetadas por AMSDOS. Para mas detalles, vease la parte 2 de este capftulo 
(programa de ayuda SET). 

Copia deficheros entre disco y cinta 

CP/M Plus no esta preparado para acceder a ficheros de cinta y copiarlos en disco, ni para copiar 
ficheros de disco a cinta. Si lo esta, en cambio, CP/M 2.2 (cara 4 de los discos maestros). Los 
programas de ayuda CLOAD y CSAVE de CP/M 2.2 realizan estas funciones segun se muestra 
en las tablas siguientes. 

Procedimientos de copia deficheros 

En las tablas siguientes se describen los procedimientos de transferencia para todo tipo de 
ficheros entre disco y cinta. No se requiere tener conectada la segunda unidad de disco. Los 
programas de BASIC protegidos no pueden ser copiados de cinta a disco, ni viceversa; tampoco 
pueden serlo los ficheros binarios (tales como programas de juegos en codigo de maquina) si no 
se conocen las direcciones de carga. En la parte 2 de ese capftulo se da mas informacion sobre 
los programas PIP, CLOAD y CSAVE. 
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COPIAR HACIA 


COPIAR DESDE 


BASIC de Amstrad en cinta * 


Datos ASCII en cinta* 


Binario en cinta * 


BASIC de Amstrad 


|TAPE 








en cinta * 


LOADTICH" 
<cambiar cinta> 
SAVE "FICH" 
|DISC 








Binario 






H = HIMEM 




en cinta * 






|TAPE 

MEMORY <p>-l 
LOADTICH" 
<cambiar cinta> 
SAVE"FICH",B,<p> 
|DISC 

MEMORY=H 
<nota2> 


<l>[,<e>] 


ASCII 


|TAPE 


<insertar disco de CP/M 






en cinta * 


LOAD"FICH" 
<cambiar cinta> 
SAVE"FICH",A 
|DISC 


2.2> 
|CPM 

CLOAD "FICH",TEMP 
<cambiar cinta> 
CSAVE TEMP,"FICH" 
ERA TEMP 
AMSDOS 
< nota 1 > 






BASIC de Amstrad 


|TAPE 








en disco * 


LOAD"FICH" 

|DISC 

SAVE"FICH" 








ASCII 


|TAPE 


<insertar disco de CP/M 






en disco 


LOAD"FICH" 

|DISC 

SAVE"FICH",A 


2.2> 
|CPM 

CLOADTICH" 
AMSDOS 






Binario 






H = HIMEM 




en disco 






|TAPE 

MEMORY <p>-l 

LOADTICH" 

|DISC 

SAVE"FICH",B,<p> 

MEMORY H 

<nota2> 


<l>[,<e>] 



* Fichero con cabecera. 

<nota I > Requiere espacio libre en el disco para el fichero transitorio "TEMP". 

<nota 2> <p> es la direccion inicial del fichero, <l> es su longitud, <e> es la direccion 
opcional de ejecucion. 
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COPIAR DESDE 


BASIC de Amstrad 


Datos ASCII en 


disco * 


Binario AMSDOS en 


Todos los demas en disco 


COPIAR HACIA 


en disco * 






disco * 




BASIC de Amstrad 


LOADTICH" 










en cinta * 


|TAPE 
SAVE "FICH" 
|DISC 










Binario 








H = HIMEM 




en cinta * 








MEMORY <p>-l 

LOAD"FICH " 

|TAPE 

SAVE"FICH",B,<p>,<l> 

[,<e>] 

|DISC 




ASCII 


LOADTICH" 


<insertar disco 


deCP/ 




<insertar disco de CP/M 2.2> 


en cinta * 


|TAPE 


M2.2> 






|CPM 




SAVE "FICH" 


|CPM 






CSAVE FICH 




|DISC 


CSAVE FICH 






AMSDOS 




o bien 


AMSDOS 






<nota 3> 




<insertar disco de 












CP/M 2.2 > 












|CPM 












CSAVE FICH 












AMSDOS 










BASIC de Amstrad 


LOADTICH" 










en disco * 


<cambiar disco> 
SAVETICH" 
o bien 

<insertar disco de 
CP/M Plus> 
|CPM 

PIPB: = FICH 
AMSDOS 










ASCII 


LOAD"FICH" 


<insertar disco 


deCP/ 






en disco 


<cambiar disco> 
SAVE"FICH",A 


M Plus> 
|CPM 

PIPB: = FICH 
AMSDOS 








Binario Amsdos 










<insertar disco de CP/M Plus> 


en disco * 










|CPM 

PIPB: = FICH 
AMSDOS 


Todos los demas 










<insertar disco de CP/M Plus> 


en disco 










|CPM 

PIPB: = FICH 
AMSDOS 



* Fichero con cabecera. 

(nota 2) (p es la direccion inicial del fichero, (I) es su longitud, (e) es la direccion opcional de 
ejecucion. 

(nota 3) El fichero destino no es utilizable directamente por BASIC. No obstante, esta opcion es 
interesante como medio de almacenamiento a bajo costo. El fichero se puede volver a copiar en 
disco con CLOADTICH" (desde CP/M 2.2). 
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Guia de referenda de los mensajes de error 

Cuando AMSDOS no puede ejecutar una orden, emite un mensaje de error. Si el problema es 
mecanico o radica en los circuitos, el mensaje de error va seguido de la pregunta: 

Retry, Ignore or Cancel? 

• R (reintentar) hace que se repita la operacion, posiblemente despues de que el usuario 
haya remediado el problema. 

• I (ignorar) hace que el ordenador continue como si nada hubiera ocurrido, lo que 
generalmente da lugar a efectos inesperados y posiblemente indeseados. 

• C (cancelar) hace que se cancele la operacion, lo que frecuentemente conduce a un 
nuevo mensaje de error. 



Lista de errores 

Unknown Command 
... la orden no ha sido tecleada correctamente. 



Bad command 
... la orden no puede ser ejecutada por alguna razon; error de sintaxis o configuracion 
inadecuada del sistema. 



<nombre de fichero> already exists 
el usuario ha intentado dar a un fichero el nombre de un fichero ya existente. 

<nombre de fichero> not found 
. no existe ese fichero. 



Drive <unidad> directory full 
no queda espacio en el directorio para una nueva reseha. 

Drive <unidad>: disc full 
no queda espacio en el disco para grabar nuevos datos. 



Drive <unidad>: disc changed, closing <nombre de fichero> 
se ha cambiado el disco antes de cerrar el fichero; el ordenador lo cierra. 



<nombre de fichero> is read only 
... el fichero no se puede modificar porque es de 'solo lectura'. Los ficheros solamente se 
pueden caracterizar como de solo lectura o de lectura/escritura desde CP/M. 
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Drive <unidad>: disc missing 
... no hay disco en la unidad, o el disco no esta girando correctamente. La accion aconsejable es 
extraer el disco, insertarlo de nuevo y pulsar R. 



Drive <unidad>: disc is write protected 
... se ha intentado escribir en un disco que tiene abierto el orificio de proteccion. Si 
efectivamente quiere utilizar ese disco, extraigalo, cierre el orificio de proteccion, insertelo de 
nuevo y pulse R. 



Drive <unidad> read fail 
... error en los circuitos de lectura. La accion aconsejable es extraer el disco, insertarlo de nuevo 
y pulsar R. 

Drive <unidad> write fail 
... error en los circuitos de escritura. La accion aconsejable es extraer el disco, insertarlo de 
nuevo y pulsar R 

Failed to load CP/M 
... error de lectura al intentar cargar CP/M con la orden |CPM, o bien no se ha insertado un 
disco de sistema de CP/M valido. Cuando se intenta cargar CP/M con un disco que tenga 
formato 'de datos' se genera el mensaje de error 'Read fail'. 
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Parte2:CP/M 



CP/MPlus 

Temas tratados: 

* Introduccion a CP/M 
Carga de CP/M Plus 

* Modo directo de consola 

* Programas de ayuda transitorios 

* Gestion de perifericos 

* CP/M 2.2 



* 



CP/M Plus es un sistema operativo de disco. Es un programa especial que da acceso a la gran 
potencia del CPC6 1 28. Aprovecha todos los 1 28K de RAM y deja libres mas de 6 1 K para los 
programas del usuario. CP/M permite el acceso aleatorio a los ficheros de datos; la implemen- 
tacion en el CPC6 1 28 incluye un sofisticado emulador de consola. 

El hecho de que CP/M este disponible para tan gran variedad de ordenadores hace que se hayan 
escrito millares de paquetes de aplicacion, entre los que usted puede elegir los que mejor 
satisfagan sus necesidades. 

En la publicacion A Guide to CP/M Plus', SOFT97I, se da una descripcion completa de CP/M 
Plus, junto con informacion detallada sobre como escribir sus propios programas y sobre la 
implementacion de CP/M Plus en el Amstrad. Puede consultar tambien otras publicaciones de 
Amsoft y de otros editores sobre este tema. 

Introduccion 

El sistema operativo CP/M proporciona un medio de comunicacion entre el usuario y el sistema 
informatico, incluidas las unidades de disco y otros perifericos. Ofrece ordenes especiales 
(incorporadas en el sistema) y programas de ayuda (grabados en los discos) cuyo objetivo 
fundamental es ayudarle en la tarea principal y mas frecuente: ejecutar los programas de las 
aplicaciones con sus propios datos. 



Desde luego, es posible adquirir gran experiencia en el manejo de CP/M y todos sus programas 
de ayuda. Tal experiencia puede ayudarle a salir de algun apuro. Pero la realidad es que a la 
mayor parte de los usuarios les basta con saber como poner en marcha los programas. El resto 
de este capftulo estara dedicado a explicar las funciones y caracteristicas fundamentals de 
CP/M, procurando evitar que el exceso de detalles oscurezca lo esencial. 

Del mismo modo que BASIC tiene su 'modo directo' o 'modo inmediato', caracterizado por el 
mensaje inductor Ready, CP/M tiene un 'modo directo de consola', identificado por los mensajes 
A> o B>. El sistema dispone de ciertas ordenes incorporadas, pero la mayor parte del trabajo 
se realiza cargando y ejecutando 'programas transitorios'. Se les llama 'transitorios' porque 
normalmente estan en el disco y solo se los carga en la memoria cuando se los va a utilizar. 

El sistema genera, ademas de los mensajes de error estandar de CP/M, cierto numero de 
mensajes de error especfficos de los circuitos, los cuales se distinguen por el hecho de que 
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aparecen en la ultima Ifnea de la pantalla en forma de "cinta sin fin". 

Situation de CP/M Plus en el disco 

La mayor parte de CP/M Plus reside en un fichero especial con distintivo de tipo .EMS, grabado 
en la cara I del juego de discos del sistema. El ordenador carga CP/M a partir de este fichero 
siguiendo un proceso de dos etapas. 

En primer lugar, la orden | CPM de AMSDOS carga el primer sector de la pista numero 0. En los 
discos con formato de sistema, este sector contiene un programa cuya unica mision es cargar el 
fichero .EMS. El resto de las pistas del sistema no se utiliza. 

Arranqueenfrio 

Durante el proceso de carga, cuando se activa CP/M por primera vez, el sistema busca en el 
disco el fichero PROFILE. SUB. Si lo encuentra, ejecuta automaticamente las instrucciones 
contenidas en el. Asi pues, incluyendo en el fichero PROFILE. SUB las instrucciones adecuadas, 
se puede automatizar la preparacion del teclado, la inicializacion de la impresora e incluso la 
puesta en marcha de una aplicacion. En el capftulo 4 vimos como se cambia el nombre del 
fichero PROFILE (cara I) para activarlo. 

Mientras esta funcionando el fichero PROFILE. SUB se crea en el disco un pequeho fichero 
transitorio; asf pues, el disco no puede estar protegido contra escritura. Esta es la razon por la 
que el fichero PROFILE del disco maestro no puede ser reconocible, esto es, no puede tener el 
distintivo .EMS. 

Los ficheros PROFILE se pueden elaborar con un procesador de textos, con un editor de texto 
(tal como ED.COM) o incluso desde BASIC. El siguiente programa de BASIC podrfa haber sido 
utilizado para crear el fichero PROFILE. SUB: 

10 OPENOUT "PROFILE. SUB" 

20 PRINT #9,"SETKEYS KEYS.CCP" 

30 PRINT #9, "LANGUAGE 3" 

40 CL0SE0UT 



Codigos de control de console 

En CP/M se utilizan diversas teclas para controlar la evolucion de los programas. Estas funciones 
reemplazan la accion que ejercen las teclas de movimiento del cursor y [ESC] en BASIC. Los 
codigos de control que relacionamos a continuacion se asignan a las correspondientes teclas 
ejecutando la orden 

SETKEYS KEYS.CCP 

El programa transitorio SETKEYS.COM y el fichero KEYS.CCP se encuentran ambos en la cara 
I del juego de discos del sistema. 
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Codigo de 
control 


Tecla 


Funcion 


[CONTROL]A 


<- 


Mover el cursor una posicion hacia la izquierda 


[CONTROL] B 


[CONTROL] <r 
... o bien ... 
[CONTROL]^ 


Llevar el cursor al principio de la Ifnea; si ya 
esta en esa posicion, lo Neva al final de la Ifnea 


[CONTROL]C 


[CONTROL] [ESC] 


Abandonar el programa 


[CONTROL] E 


[CONTROL] [RETURN] 


Retorno fisico de carro 


[CONTROL] F 


-> 


Mover el cursor una posicion hacia la derecha 


[CONTROL]G 


[CLR] 


Borrar el caracter que esta en la posicion 
actual del cursor 


[CONTROL] H 


[<- BORR] 


Borrar el caracter que esta a la izquierda del 
cursor y mover este una posicion a la 
izquierda 


[CONTROL]! 


[TAB] 


Llevar el cursor al siguiente tope de tabulacion 


[CONTROL]J 




Introducir Ifnea de orden 


[CONTROL] K 


[CONTROL] [CLR] 


Borrar hasta el final de la Ifnea 


[CONTROL] M 


[RETURN] 
... o bien ... 
[INTRO] 


Introducir Ifnea de orden 


[CONTROL] P 




Bascula de la impresora. Activa y desactiva el 
envfo a la impresora de toda la informacion 
que aparece en la pantalla 


[CONTROL]Q 




Reanudar el envfo de informacion a la pantalla 


[CONTROL] R 


[CONTROL] [INTRO] 


Repetir la Ifnea de orden actual 


[CONTROL]S 


[ESC] 


Detener el envfo a la pantalla de la informacion 
generada por CP/M. Se reanuda con 
[CONTROL]Q 


[CONTROL] U 




Ignorar la Ifnea actual 


[CONTROL]W 


[COPIA] 


Repetir la ultima orden tecleada 


[CONTROL]X 


[CONTROL] [<- BORR] 


Borrar desde el principio de la Ifnea hasta la 
posicion actual del cursor 


[CONTROL]Z 




Fin del texto 



Nombres deficheros 

Muchas de las ordenes de CP/M llevan como parametros nombres de ficheros. En ciertos casos 
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se permite la inclusion de sfmbolos comodfn (vease la seccion 'Simbolos comodfn' en la parte I 
de este capitulo). El sistema convierte a mayusculas todos los nombres de fichero. 

Las ordenes directas de consola y la mayor parte de los programas de ayuda no requieren que se 
escriban los nombres de ficheros entre comillas. 

Los nombres de los ficheros pueden incluir los prefijos A: o B: para obligar a CP/M a utilizar la 
unidad especificada. 

Una orden tfpica de CP/M es, por ejemplo, 

TYPE KEYS.CCP 

donde TYPE es el nombre de la funcion (Visualizar en la pantalla') y KEYS.CCP es el nombre del 
fichero cuyo contenido queremos ver. 

Cambio de la unidad de disco implicita 

Si se tienen conectada la segunda unidad de disco, se puede especificar cual de las dos debe ser 
considerada como implfcita. Para ello se escribe A: o B: en respuesta a los mensajes inductores 
B> o A>, respectivamente. El propio mensaje inductor indica en todo momento cual es la 
unidad implfcita. La inclusion de A: o B: como prefijos en los nombres de los ficheros obliga a 
utilizar la unidad especificada en una operacion concreta, pero no modifica la unidad implfcita. 

Ordenes directas de consola 

Hay varias ordenes directas de consola que se pueden teclear en respuesta a los mensajes A> o 
B>. Estas ordenes pueden ser abreviadas. Las versiones simplificadas que vamos a estudiar sf 
estan incorporadas en el sistema operativo, pero existen, con el mismo nombre, programas 
transitorios mas complejos. 

DIR 

Escribe en la pantalla la lista del contenido del directorio. Los nombres de los ficheros no estan 
ordenados segun ningun criterio, sino en el orden en que estan sus resehas en el directorio. DIR 
admite sfmbolos comodfn; no lista los ficheros que tengan el atributo 'SYS'. 

DIR lista todos los ficheros de la unidad implicita 

DIR B: lista todos los ficheros de la unidad B: 

DIR *BAS lista todos los ficheros del tipo .BAS 

DIR B:*.BAS lista todos los ficheros del tipo .BAS de la unidad B: 

DIR PIP.COM lista solamente el fichero PIP.COM (si existe) 



DIRSYSyDIRS 

Estas ordenes escriben la lista de los ficheros del disco que tienen el atributo 'SYS'. Por lo demas 
funcionan igual que DIR. Mas adelante describiremos el atributo SYS. 

ERASE o ERA 

Borra resehas del directorio. Solo se borra la reseha, de modo que los datos siguen estando en 
el disco hasta que se graben otros en su lugar; no obstante, la informacion es irrecuperable. ERA 
admite sfmbolos comodfn; si se incluyen estos sfmbolos en el nombre de fichero, ERA pide que 
se le confirme que debe borrar todos los ficheros concordantes. ERA no lista los nombres de los 
ficheros que va borrando. Si alguno de los ficheros que se le ha pedido que borre es de 'solo 
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lectura', la orden queda interrumpida. El atributo de 'solo lectura' sera descrito mas adelante. 

ERA PIP.COM borra el fichero PIP.COM 

ERA B:PIP.C0M borra el fichero PIP.COM de la unidad B: 

ERA *.BAS borra todos los ficheros de tipo BAS 



RENAME o REN 

Cambia el nombre de un fichero ya existente. El primer nombre de fichero que se especifica es 
el nuevo, seguido del signo = y del nombre antiguo. Si ya hay en el disco un fichero con el 
nombre nuevo, se emite un mensaje de error. Como orden incorporada al sistema, REN no 
admite sfmbolos comodfn en los nombres de los ficheros; sf lo hace, en cambio, el programa 
transitorio RENAME.COM. 

REN FICHNUEV.BAS=FICHANTI.BAS 

da al fichero FICHANTI.BAS el nuevo nombre FICHNUEV.BAS 
REN B:FICHNUEV.BAS=FICHANTI.BAS 

da al fichero FICHANTI.BAS el nuevo nombre FICHNUEV.BAS en la unidad B: 



TYPEoTYP 

Envia a la pantalla el contenido del fichero especificado. Si el fichero no es un fichero ASCII de 
texto, se produciran efectos imprevisibles, quiza indeseables. 

TYPE KEYS.CCP 
exhibe el listado del programa KEYS.CCP. 

USER o USE 

El 'numero de usuario' es un metodo de particion del directorio mediante el cual se limita el 
acceso de distintos usuarios a sus correspondientes ficheros. Normalmente un fichero solo es 
accesible si esta identificado con el numero actual de usuario. 

Los ficheros que hayan sido grabados en 'usuario 0' y tengan el atributo 'SYS' son accesibles 
desde todos los numeros de usuario; de esta forma, los programas de ayuda y de aplicacion 
estan al servicio de todos los usuarios sin necesidad de que cada uno tenga una copia en su 
propia area. 

La orden USER cambia el numero actual de usuario. Por ejemplo, 

USER 3 

hace que el numero de usuario sea el 3. 

Ordenes transitotias 

Para realizar una gestion de ficheros mas elaborada que la que permite el modo directo de 
consola es necesario recurrir a los diversos programas de ayuda disponibles. Estos programas se 
ejecutan sin mas que escribir su nombre, en ocasiones seguido de algun nombre de fichero O de 
algun parametro. El lector seguramente conocera una de estas ordenes transitorias: DISCKIT3. 

Las ordenes transitorias se dividen en los grupos indicados mas abajo. La documentacion 
disponible sobre estos programas es muy amplia; el lector puede consultaries ficheros HELP 
(cara 3 del juego de discos del sistema) y la publicacion A Guide to CP/M Plus', SOFT97I . 
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Las ordenes transitorias DISCKIT, SETKEYS, SETLST, SETSIO, PALETTE, LANGUAGE y 
AMSDOS, asf como los controladores de pantalla para GSX y la instalacion de LOG03, han sido 
disenadas por Amstrad y funcionan solamente en este sistema. No son trasladables a ningun 
Otro CP/M. En una misma Ifnea se pueden incluir varias ordenes separandolas con el signo de 
exclamacion (!): 

LANGUAGE 3 ! SETKEYS KEYS.WP 

Gestion de perifericos 

DISCKIT3 es un programa completo para inicializar, copiar y comprobar discos. Es mas rapido 
inicializar mientras se copia que inicializar primero y luego copiar. El programa ofrece menus 
que indican que tecla (normalmente del teclado numerico) se debe pulsar para realizar cada 
funcion. El formato 'comercial' (vendor) es un tipo especial de formato de sistema disenado para 
la distribucion comercial de programas. No obstante, los discos con formato 'de datos' pueden 
ser mas adecuados para ese fin. 



AVISO: El acuerdo de licencia para su CP/M (que esta codificado electronicamente con un 
numero de serie) permite su utilizacion en un solo ordenador. Esto significa, en particular, que 
esta prohibido dar a otras personas una copia de su disco (la cual seria identificable por el 
numero de serie). Puesto que todas las copias de la cara I llevan grabado su CP/M (en el 
fichero .EMS), tenga buen cuidado de no vender, intercambiar o de ninguna otra forma de 
enajenar discos con ese fichero en ellos. 



LANGUAGE 

El CPC6 1 28 tiene un juego de caracteres internacionales bastante completo. La orden 
LANGUAGE intercambia determinados grupos de caracteres para que los programas de 
aplicacion puedan visualizar caracteres especiales y acentuados. En la parte 16 del capftulo 
titulado 'Para su referenda' daremos mas amplia informacion sobre este tema. 

La orden 

LANGUAGE 3 

adapta el ordenador para que escriba el juego de caracteres britanico, cuya diferencia con el 
estandar (EE.UU.) esta en el intercambio de los signos £ y #. 

Colores 

Los colores iniciales de CP/M Plus en el 6 1 28 (con monitor de color) son el bianco intenso para 
los caracteres y el azul para el fondo. Pero estos colores se pueden modificar con la orden 
PALETTE, la cual va seguida de varios parametros, uno para cada tinta. La tinta es la del borde 
y el fondo; la tinta I es la de los caracteres. Cada color esta descrito por un numero (margen de 
a 63) que caracteriza al mismo tiempo la intensidad perceptible en un monitor 
monocromatico. 

Se puede especificar desde una hasta 1 6 tintas, pero solo las dos primeras seran visibles en la 
pantalla de 80 columnas. 

La orden 

PALETTE 63,1 
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invierte la situacion normal de las tintas y I, pues da caracteres azules (I) sobre fondo bianco 
intenso (63). 

Utilice la tabla siguiente para elegir los colores (o las intensidades) que desee. Los numeros se 
pueden especificar en decimal o en hexadecimal. 



Color 


Hex 


Dec 


Color 


Hex 


Dec 


Negro 


&00 





Azul pastel 


&2B 


43 


Azul 


&02 


2 


Naranja 


&2C 


44 


Azul intenso 


&03 


3 


Rosa 


&2E 


46 


Rojo 


&08 


8 


Magenta pastel 


&2F 


47 


Magenta 


&0A 


10 


Verde intenso 


&30 


48 


Malva 


&0B 


II 


Verde mar 


&32 


50 


Rojo intenso 


&0C 


12 


Cyan intenso 


&33 


51 


Morado 


&0E 


14 


Verde lima 


&38 


56 


Magenta intenso 


&0F 


15 


Verde pastel 


&3A 


58 


Verde 


&20 


32 


Cyan pastel 


&3B 


59 


Cyan 


&22 


34 


Amarillo intenso 


&3C 


60 


Azul celeste 


&23 


35 


Amarillo pastel 


&3E 


62 


Amarillo 


&28 


40 


Blanco intenso 


&3F 


63 


Blanco 


&2A 


42 









El teclado 

Los codigos generados por el teclado pueden ser modificados mediante la orden SETKEYS. Esta 
orden permite asignar los valores deseados a las teclas o a los codigos expansibles. La lista de 
codigos debe encontrarse en un fichero, cuyo nombre se incluye; luego como parametro de 
SETKEYS. El fichero puede haber sido creado con ED, con PIP o incluso desde BASIC. Por 
ejemplo, una orden tfpica es 



SETKEYS KEYS.TST 

donde el fichero KEYS.TST contiene 

E &8C "DIR ^M" codigo expansible numero 12 

8 N S C "^H" retroceso del cursor= [CONTROL] H, ASCII 08 

que primero redefine el codigo expansible generado por [CONTROL] [INTRO] (representado 
por &8C) para asignarle la cadena DIR[RETURN], y luego la tecla de 'cursor a la izquierda' (<- , 
tecla numero 8) para que genere un retroceso del cursor. 

Los ficheros KEYS estandar suministrados con el ordenador 6 1 28 son: KEYS.CCP para la edicion 
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de ordenes de CP/M, KEYS.DRL para utilizar con Dr. LOGO (cara 3) y KEYS.WP, adecuado 
para muchos procesadores de texto. 

Impresoras 

La inicializacion de impresoras se puede realizar con la Orden 

SETLST <nombrefichero> 
donde <nombrefichero> contiene la cadena de codigos que se debe enviar a la impresora. Al 
igual que en los ficheros de SETKEYS, los codigos de control se pueden representar por: 

^<caracter> 
o por 

^^valor de caracter>' 
o bien por 

^^nombre del codigo de control>' 
donde los (nombres del codigo de control) son ESC, FF, etc., o sea, los que se muestran en la 
tabla de caracteres ASCII del capftulo titulado 'Para su referenda ...'. 

Un codigo de inicializacion de impresoras muy frecuente es el 15 (decimal), que establece el 
modo de escritura estrechada. 

En BASIC la orden serfa 

PRINT #8,CHR$(15) 

En CP/M, 

SETLST ESTRECHA 
donde el fichero ESTRECHA debe contener cualquiera de las siguientes Ifneas: 

~'sr 

"0 

"'15' 
todas las cuales representan el codigo 1 5 (decimal). 

Algunos programas de aplicacion trabajan con la pantalla de 24x80. La orden 

SET24X80 
o bien 

SET24X80 ON 
selecciona el modo 24X80. La orden 

SET24X80 OFF 
lo anula. 

La pantalla normal en el 6 1 28 es 24X80, con la ultima Ifnea reservada para los mensajes de 
estado. La desactivacion del modo 24X80 Solo sera apreciable si tambien se desactiva la Ifnea de 
estado. En la parte 1 5 del capftulo 7 Se explica como activar y desactivar la Ifnea de estado. 

Interfaz serie 

CP/M puede controlar un interfaz serie monocanal de entrada/salida (RS232). Sus caracteristicas 
fundamentals se pueden consultar ejecutando la orden SETSIO sin parametros: 

SETSI0 
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Se las puede modificar con esta misma orden incluyendo los siguientes parametros (o algunos de 
ellos): 

SETSIO, RX 1200, TX 75, PARITY NONE, STOP 1, BITS 8, HANDSHAKE ON, XOFF OFF 

con lo que quedaria establecida una nueva configuracion. 

Las caracterfsticas de velocidad de transmision (RX) y de estado XON/XOFF pueden resultar 
afectadas por una de las acciones posibles de la orden DEVICE. Esta orden controla los 
dispositivos logicos y fisicos. Los dispositivos logicos llevan como sufijo el signo de dos puntos (:). 
Para examinar los atributos actuales de los dispositivos se ejecuta la orden 

DEVICE 
Los atributos se pueden modificar con ordenes tales como las siguientes: 



DEVICE SIO[ 1200] 


establece la velocidad de 1 200 bits por 
segundo para el interfaz serie 


DEVICE SIO[XON] 


activa el protocolo XON/XOFF 


DEVICE SIO[NOXON] 


desactiva el protocolo XON/XOFF 



La correspondencia entre dispositivos logicos y ffsicos tambien es modificable. Normalmente 
CON: es CRT (la consola, o sea, el teclado y la pantalla), AUX: es SIO (el interfaz serie opcional) 
y LST es LPT (el interfaz paralelo Centronics). La orden 

DEVICE LST:=SI0 

enviara al interfaz serie (si esta conectado) la salida que normalmente irfa a la impresora. 

Observe que esto es una reasignacion de canales, que no se debe confundir con las funciones de 
copia de ficheros realizadas por PIP. Las ordenes GET <nombrefichero> y PUT 
<nombrefichero> redirigen las entradas y salidas de la consola y la salida hacia la impresora 
para hacerles utilizar ficheros en lugar de controladores de dispositive 

PIP 

El programa de ayuda PIP (Peripheral Interchange Program, "programa de intercambio entre 
perifericos") realiza el intercambio de informacion entre el ordenador y sus perifericos. 



La forma general de la orden es 

PIP <destino>=<fuente> 

La <fuente> y el <destino> pueden ser, o bien un dispositivo logico, o bien nombres de 
ficheros; en este ultimo caso se permiten sfmbolos comodfn en la (fuente). Los dispositivos 
logicos utilizables son los siguientes: 
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Como fuente 




Como destino 


CON: 


entrada por consola 


CON: 


salida por consola 


AUX: 


entrada auxiliar 


AUX: 


salida auxiliar 


EOF: 


indicador de fin de 
fichero 


LST: 


impresora 






PRN: 


impresora con gestion de tabuladores, 
numeros de Ifnea y salto entre paginas 



Ejemplos de utilizacion de PIP: 

PIP B:=A:*.C0M 
copia todos los ficheros *.COM de la unidad A: a la B:. 

PIP TECLADO.CPM=KEYS.CCP 
hace una copia del fichero KEYS.CCP y le da el nombre de TECLADO.CPM. 

PIP CON:=KEYS.CCP 
envia el fichero KEYS.CCP ala pantalla (efecto similar al de TYPE KEYS.CCP). 

PIP LST:=KEYS.CCP 
envia el fichero KEYS.CCP a la impresora. 

PIP ENTRADA. TXT=C0N: 
capta caracteres por el teclado y los envfa a un fichero llamado ENTRADA. TXT. 



Observe que, en este ultimo ejemplo, el proceso se concluye con el codigo de control 
[CONTROLJZ y que para pasar a la Ifnea siguiente hay que pulsar siempre [CONTROL]J 
despues de [RETURN]. [CONTROL]J es el codigo ASCII del avance de Ifnea. 



Cuando se escribe PIP sin parametros, emite el mensaje inductor *, a continuacion del cual se 
puede introducir las ordenes deseadas. Esta forma de funcionamiento es muy util en el trabajo 
de copia de ficheros cuando no se tiene grabado el fichero PIP.COM en el disco fuente ni en el 
disco destino. El procedimiento consiste, pues, en cargar PIP con la cara I del juego de discos 
del sistema, extraer este disco y luego insertar los que hayan de intervenir en el proceso de 
copia. 



Para abandonar PIP basta con pulsar [RETURN] en respuesta al mensaje inductor *. 

Observe que PIP tambien puede copiar ficheros de un disco a otro en sistemas de una sola 
unidad; el programa avisa cuando se debe cambiar el disco. Los indicadores de unidad de los 
ficheros fuente y destino deben ser diferentes. 
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Gestion del sistema 

DIR, ERASE, RENAME y TYPE existen tambien como programas transitorios; en esta version 
son mas potentes que las correspondientes ordenes intrinsecas al sistema. Al igual que ocurre 
con otros programas transitorios suministrados por Digital Research, los parametros secundarios 
se especifican entre corchetes. En los ficheros HELP de la cara 3 se da una explicacion mas 
completa. Veamos algunos ejemplos: 



DIR [FULL] 


muestra todos los nombres de los ficheros, con sus 
tamahos y atributos 


ERASE *.COM 
[CONFIRM] 


pide confirmacion individual para cada fichero que 
encuentra, antes de borrarlo 


RENAME 


pregunta los nombres antiguo y nuevo del fichero 


RENAME 
*.SAV=*.BAK 


cambia todos los distintivos de tipo de .BAK a .SAV 


TYPE KEYS.WP 
[NOPAGE] 


Inhibe la paginacion en la pantalla 



Ya hemos mencionado antes los atributos de SYS (sistema) y RO (solo lectura). Estos y muchos 
atributos pueden ser asignados mediante la orden SET, la cual acepta sfmbolos comodfn. 

Las ordenes 

SET *.C0M [RO] 

SET KEYS.CCP [RO] 

SET A: [RO] 
asignan a los ficheros o a una unidad de disco el atributo RO (para prevenir el borrado 
accidental). 

Las ordenes 

SET *.C0M [RW] 
SET KEYS.CCP [RW] 
SET A: [RW] 
devuelven a los ficheros o a la unidad de disco el atributo de 'lectura/escritura'. 

Las ordenes 

SET *.C0M [SYS] 

SET KEYS.CCP [SYS] 
dan a los ficheros el atributo de 'sistema'. Los ficheros que tienen este atributo no aparecen en 
los listados generados por DIR (pero sf en los de DIRS y DIRSYS). No obstante, esos ficheros 
estan disponibles a todos los demas efectos; e incluso, si estan en el area de usuario numero 0, 
estan disponibles para todos los numeros de area de usuario. 



Las ordenes 

SET *.C0M [DIR] 
SET KEYS.CCP [DIR] 
anulan el atributo de 'sistema'. 

A cada disco se le puede asignar una etiqueta o nombre (NAME) y tambien una clave 
(PASSWORD). La clave protege el directorio, no los ficheros. Tambien se puede asignar claves a 
ficheros individuales. Las ordenes 
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SET [NAME=JAVIER] 
SET [PASSWORD=SESAMO] 
SET [PROTECT=ON] 
actuan sobre el disco que esta en la unidad implfcita. 

Las ordenes 

SET *.*[PASSWORD=SESAMO] 
SET *.*[PROTECT=READ] 
actuan sobre ficheros de ese disco (*.* significa 'todos los ficheros'). 

La estampacion de fecha y hora Se puede activar con INITDIR (cara 2 del juego de discos del 
sistema). Las ordenes 

INITDIR 

SET [CREATE=0N] ... o ... SET [ACCESS=0N] ... y ... 
SET [UPDATE=0N] ... junto con ... 
DIR [FULL] 
inician y visualizan la estampacion de fecha y hora del disco de la unidad implfcita. La orden V 

DATE SET 
sera necesaria cada vez que se cargue CP/M Plus para comunicarle la fecha y la hora. Una vez 
puesto en hora, el reloj la actualiza con precision razonable. Para consultarla se utiliza la orden 

DATE ... y ... 
DATE CONTINUOUS 

ADVERTENCIA: Cuando a un disco se le asigna nombre o clave, o se le estampa fecha y hora, 
en ese disco ya no debe escribir ni AMSDOS ni CP/M 2.2, pues estos sistemas no estan dotados 
de tales funciones. 



Normalmente el sistema solo accede a los ficheros del disco que esta en la unidad implfcita, 
salvo que se especifique otra unidad. Sin embargo, la orden 

SETDEF *,A: 
(donde * representa la unidad implfcita) instruye a CP/M para que en lo sucesivo, cuando este 
buscando ficheros, lo haga primero en la unidad implfcita y luego en la A:. Dicho de otra forma, 
si la unidad implfcita es la B:, el fichero sera encontrado si esta en alguna de las dos unidades. 

Las ordenes 

SETDEF [PAGE] ... y ... 

SETDEF [NOPAGE] 
activan y desactivan la paginacion en la pantalla (esto es, la pausa que el sistema hace 
automaticamente, en espera de que el usuario pulse una tecla, cuando la informacion emitida 
por la consola llena la pantalla). 

Recuerde que la mayor parte de las funciones realizadas por DEVICES, SET y SETDEF, en 
particular cuando afectan a las unidades de disco (en lugar de a ficheros o discos concretos), han 
de ser inicializadas, junto con la fecha, cada vez que se carga CP/M Plus. Esta tarea se presta 
perfectamente a ser programada en un fichero PROFILE. SUB adecuado. 

SUBMIT ejecuta grupos de ordenes individuales automaticamente. Las ordenes tienen que 
estar en un fichero de texto cuyo distintivo de tipo sea .SUB. Cada linea representa una orden; 
una Ifnea puede ser la entrada a un programa si empieza con el signo <. 
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Con las diferentes versiones de SHOW se puede obtener informacion sobre el tamano de un 
disco, el espacio libre, el numero de resenas libres en el directorio, ficheros que hay en las 
distintas areas de usuario, el nombre del disco, las caracterfsticas de la unidad, etc.: 



SHOW B 




SHOW B 


[LABEL] 


SHOW B 


[USERS] 


SHOW B 


[DIR] 


SHOW B 


[DRIVE] 



SalidadeCP/M 

La orden 

AMSDOS 
retira el control de CP/M y lo cede al BASIC de AMSTRAD, a traves del cual se accede a las 
ordenes del sistema operativo de disco AMSDOS. 

Programacion avanzada 

La cara 2 del juego de discos del sistema contiene diversos programas que han sido disehados 
para ayudar a los programadores mas expertos. Le sugerimos que consulte la publicacion A 
Guide to CP/M Plus', SOFT97I o alguna otra obra de referenda. 

CP/M 2.2 

El objetivo de esta seccion es poner de manifiesto las diferencias que hay entre CP/M Plus y CP/ 
M 2.2. 

CP/ M 2.2 se carga con las dos primeras pistas de un disco de sistema. El sector de autocarga es 
diferente del que se utiliza para cargar CP/M Plus; es necesario no confundirlos. Aunque es 
posible utilizar discos con formato 'comercial', 'IBM' y 'de datos' en cualquier unidad de disco, es 
habitual limitar su uso a la segunda unidad. 

A menos que el programa tome medidas al efecto (tal como hace FILECOPY, por ejemplo), CP/ 
M 2.2 no permite escribir en un disco que no haya sido 'reconocido' previamente. Por otra 
parte, CP/M 2.2 solo comprueba el tipo de formato que tiene el disco (sistema, datos o IBM) 
cuando lo reconoce. En el caso de la unidad de disco incorporada (unidad A) esto ocurre cada 
vez que vuelve al modo directo de consola o cuando se teclea [CONTROLJC en respuesta a los 
mensajes inductores A> o B>. En el caso de la unidad externa (unidad B), CP/M 2.2 reconoce 
el disco la primera vez que accede a el, despues de reconocer el instalado en la unidad A. 

Si se intenta escribir en un disco que no ha sido reconocido, se provoca el error 

Bdos Err on <unidad>: R/0 

Pulse una tecla cualquiera para continuar. Si ademas el nuevo disco es de formato distinto, se 
producira un error de lectura o de escritura. Pulse C para continuar. 

Si usted adquiere programas grabados en un disco con formato 'comercial', puede, o bien 
copiarlo a un disco de sistema (de CP/M 2.2) mediante FILECOPY o PIP, o bien convertir el 
disco en un disco de sistema ahadiendole las pistas de su propio CP/M 2.2, para lo cual sirven los 
programas BOOTGEN y SYSGEN. Lea atentamente el Acuerdo de Licencia para el Usuario 
Final' (apendice I de este manual). 

SYSGEN (sin parametros) es un programa copiador especial que solicita los discos fuente y 
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destino y copia las pistas del sistema CP/M 2.2 del uno al otro. BOOTGEN copia la pista del 
sector I (el cargador) y el sector de configuracion de un disco a otro. 

La orden DIR. no acepta parametros (aparte del indicativo de la unidad). Los nombres de los 
ficheros no son ordenados segun ningun criterio, sino que aparecen en la pantalla en el mismo 
orden en que figuran sus resenas en el directorio. 

STAT proporciona algunas de las funciones de SET y SHOW. Las ordenes 

STAT 
STAT A: 
STAT B: 
muestran el estado del disco y el espacio libre. 

Las ordenes 

STAT *.C0M 
STAT DISC.BAS 
dan informacion mas amplia acerca de ficheros concretos. 

Las ordenes 

STAT *.C0M $R/0 

STAT DISC.BAS $R/0 
asignan al fichero especificado el atributo de 'solo lectura', de forma que no queda ser borrado 
accidental mente. 

Las ordenes 

STAT *.C0M $R/W 
STAT DISC.BAS $R/W 
anulan el atributo de 'solo lectura' y activan el de 'lectura/escritura'. 

Las ordenes 

STAT *.C0M $SYS 

STAT SECRETO.BAS $SYS 
asignan al fichero el atributo de 'fichero de sistema' para hacerlo invisible a las operaciones de 
listado del directorio y de copia. El fichero seguira disponible para todo lo demas. 

Las ordenes 

STAT *.C0M $DIR 
STAT SECRETO.BAS $DIR 
asignan al fichero el atributo de 'directorio', anulando el de 'sistema'. 

El programa de ayuda FILECOPY permite copiar ficheros de un disco a otro en sistemas de una 
sola unidad de disco. Informa al usuario de cuando debe intercambiar los discos y le da 
instrucciones completas a traves de la pantalla. Si se incluyen sfmbolos comodfn en los nombres 
de los ficheros, FILECOPY pide confirmacion de que efectivamente se desea copiar cada uno de 
los ficheros encontrados. El programa escribe los nombres de los ficheros a medida que los va 
copiando. Ejemplos: 

FILECOPY *.C0M 
copia todos los ficheros del tipo .COM. 

FILECOPY PIP.COM 
copia el fichero PIP.COM. 

Manual de Amstrad CPC 6 1 28 (revision 2008) - Pagina 223 



DISCKIT2 realiza las mismas funciones que DISCKIT3, pero es algo mas lento en la copia de 
discos ya que dispone de menos espacio de memoria. 

Hay dos programas de ayuda que realizan la transferencia entre disco y cinta. Salvo para el 
usuario especialista, lo normal es que solo tenga interes transferir ficheros de texto (ASCII). 

CLOAD puede llevar dos parametros. El primero es el nombre del fichero origen (cinta), entre 
comillas; el segundo es el nombre del fichero destino (disco). Si se omite el segundo parametro, 
el fichero destino tendra el mismo nombre que el fichero origen; en tal caso el nombre tendra 
que ajustarse a las normas de CP/M. Si se omite el nombre del fichero origen, CLOAD lee el 
primero que encuentra en la cinta. Si el primer caracter del nombre es el signo de admiracion 
(!), se suprimen los mensajes habituales del sistema de cinta. 

Ejemplo: 

CLOAD "MI CARTA" MICARTA.TEXT 

CSAVE puede llevar tres parametros. El primero es el nombre del fichero origen (disco); el 
segundo es el nombre del fichero destino (cinta), entre comillas. Si se omite el segundo 
parametro, el fichero se grabara en la cinta con el mismo nombre que tiene en el disco. Si el 
primer caracter del nombre del fichero destino es el signo de admiracion (I), se suprimen los 
mensajes habituales del sistema de cinta. Si se especifican ambos nombres, se puede incluir un 
tercer parametro para indicar la velocidad de transferencia de datos ala cinta: para 1 000 bits 
por segundo o I para 2000 bits por segundo. 

Ejemplos: 

CSAVE TEXTSAL.TXT "TEXTO SALIDA" 
CSAVE FICHEDAT 



SETUP 

Este programa permite redefinir las caracterfsticas del teclado del CPC6I28, del sistema de 
disco y del interfaz serie. Tambien permite realizar diversas acciones cuando se carga CP/M 2.2. 
A diferencia de otros programas de ayuda, que realizan sus funciones cuando se los ejecuta, 
SETUP modifica el sector de configuracion del disco (el cual solo es invocado en los arranques 
en frio). En este aspecto, SETUP ejerce una accion similar a la de PROFILE. SUB de CP/M Plus. 

El programa es controlado por menu; cuando una pantalla es correcta o no requiere 
modificacion, se pasa a la siguiente respondiendo Y a la pregunta: 

Is this correct (Y/N) :_ 

('dEs esto correcto?') Se puede interrumpir el programa pulsando [CONTROLJC. Una vez 
completos los cambios, el programa pregunta: ' 

Do you want to update your system disc (Y/N) :_ 

('iQuiere actualizar el disco de sistema?') Esto da la oportunidad de conservar el sector de 
configuracion existente pulsando N. Tambien pregunta: 

Do you want to restart CP/M (Y/N) :_ 
lo que permite cargar y probar la nueva configuracion pulsando Y. 
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Para copiar el sector de configuracion en otro disco hay dos procedimientos: uno consiste en 
ejecutar BOOTGEN (vease mas abajo); el otro, en cargar SETUP con el disco origen, responder 
con Y a todas las preguntas e insertar el disco destino antes de responder a la penultima: 

Do you want to update your system disc (Y/N) :_ 

Los caracteres de codigo ASCII inferior a 32 (decimal) se pueden introducir en las cadenas 
literales tecleando el signo T antes del caracter correspondiente, tornado del conjunto @, A-Z, 

[A ],>,_. 



Las dos opciones siguientes son las que normalmente requieren mayor atencion: 

** Initial command buffer: 
(Tampon de ordenes iniciales'). Los caracteres introducidos tendran el mismo efecto .que si se 
los teclease en modo directo de consola inmediatamente despues de cargar CP/M, es decir, 
ejecutan automaticamente un programa en ese momento. No olvide incluir el equivalente a 
[RETURN], que se representa con los caracteres ~ M. 

Asf, para ejecutar automaticamente DIR, el tampon de ordenes iniciales debe contener 

DIITM 

Para cargar Dr. LOGO, 

SUBMIT L0G02^M 

El mensaje 

Sign-on string: 

es el que aparece en la parte superior de la pantalla cuando se carga CP/M 2.2. Observe los 
caracteres ^J ~ M, que producen el retorno del carro y el avance de Ifnea. La primera parte del 
mensaje estandar establece los colores de la pantalla y el borde para trabajar con 80 columnas; 
copielos literalmente si desea conservar estas caracterfsticas. 



Keyboard translations: 
(Adaptacion del teclado'). Permite asignar nuevos valores ASCII a las teclas, simulando asf el 
efecto de la orden KEY DEF de BASIC. Los parametros requeridos son los numeros de las teclas 
y los valores ASCII asignados. Los numeros de las teclas estan ilustrados en el diagrama que hay 
grabado a la derecha del teclado, y tambien en la parte 4 del capitulo 'Para su referenda ...'. 



Keyboard expansions: 
('Programacion de teclas'). Simula el efecto de la orden KEY de BASIC. 



Para terminar ... 

Los programas DISCKIT2, SYSGEN, BOOTGEN, FILECOPY, SETUP, CSAVE y CLOAD han 
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sido disenados por Amstrad y funcionan solamente con CP/M 2.2 en el sistema Amstrad. Son 
incompatibles con otras versiones de CP/M, aunque los demas fabricantes suelen ofrecer 
programas similares (a menudo con los mismos nombres) escritos para sus maquinas. 

En la cara 4 se incluyen varios programas de CP/M 2.2 destinados a los usuarios mas expertos. 
Le sugerimos que consulte la publicacion A Guide to CP/M', SOFT 1 59, u otras obras de 
referenda. Los programas son los siguientes: 



AMS 


Ensamblador para 8080. 


DDT 


Programa de ayuda para la depuracion de programas escritos en 
ensamblador 8080. 


DUMP 


Programa para el volcado de ficheros en hexadecimal. 


ED 


Editor sencillo de texto. 


LOAD 


Para convertir un fichero .HEX generado por ASM en un fichero 
.COM. 


MOVCPM 


Para cargar CP/M 2.2 en una posicion de memoria mas baja que la 
estandar (para reducir el tamaho del TPA). 


SUBMIT 


Procesador por lotes en modo de consola. 


XSUB 


Procesador por lotes para programas transitorios. 



Estos programas estan grabados en la cara 4 y solo pueden ser utilizados con CP/M 2.2. Evite 
confundirlos con otros programas de CP/M Plus (caras 1 , 2 y 3). 
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Capitulo 6 - Introduction a LOGO 



En esta seccion vamos a presentar los conceptos basicos de LOGO, apoyados en ejemplos, y a 
dar la relacion de las instrucciones disponibles. No pretende ser un libro de texto ni una gufa de 
referenda exhaustiva. Le sugerimos que consulte las diversas publicaciones de Amsoft y de otros 
editores sobre este tema. 

Temas tratados: 

* Concepto de LOGO 

* Carga y ejecucion de Dr. LOGO 

* Graficos de tortuga 

* Escritura de procedimientos 

* Edicion de procedimientos 

IQueesLOGO? 

LOGO es un lenguaje de programacion que esta ganando rapidamente gran popularidad por lo 
facil que es de aprender y de usar. 

Es el lenguaje ideal para aprender las tecnicas de programacion, cualquiera que sea su 
experiencia. 

Los programas de LOGO se construyen por bloques a base de procedimientos. El propio Dr. 
LOGO es una coleccion de procedimientos, denominados primitivas, que el programador 
combina para formar sus programas. 

Durante la decada de los 70, un grupo de informaticos y educadores, dirigidos por Seymour 
Papert, desarrollo el lenguaje LOGO, con sus graficos de tortuga, como medio de aprendizaje 
de la informatica destinado a ninos muy pequenos. 

Incluyeron la tortuga para que los jovenes estudiantes tuvieran, como dice Papert, 'un objeto con 
el que pensar, una herramienta que les ayudara a aprender de forma innovadora'. 

La tortuga, un dibujo con forma de punta de flecha, puede ser movida por la pantalla y 
controlada con ordenes muy sencillas. 

Dr. LOGO 

Dr. LOGO es una bien meditada implementacion de LOGO que ha sido especialmente adaptada 
al ordenador AMSTRAD para hacerla aun mas facil de programar. Incluye ampliaciones del 
lenguaje con las que se puede aprovechar la capacidad sonora del CPC6 1 28; la edicion de los 
programas se facilita al poderse utilizar las teclas de movimiento del cursor. 

Cargo de LOGO 

Para cargar Dr. LOGO, inserte en la unidad de disco una copia de la cara I del juego de discos 
del sistema y escriba 

|CPM 

Cuando aparezca el mensaje A>, extraiga el disco (cara I) e inserte una copia de la cara 3 (Dr. 
LOGO y HELP). 
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Para ejecutar Dr. LOGO escriba 

SUBMIT L0G03 

Al cabo de unos segundos aparecera el mensaje de presentacion, seguido del inductor, que en 
LOGO es el signo de interrogacion ?. 



Dr. LOGO para CP/M2.2 

Nota. En la cara 4 del juego de discos del sistema hemos incluido otra version de Dr. 
LOGO por si usted necesitara utilizar este lenguaje con CP/M 2.2 (que es el disponible en 
los modelos CPC664 y CPC464 + DDI I). En general, no es deseable utilizar la version de 
LOGO de la cara 4 en el CPC6 1 28. La version recomendada, esto es, la de la cara 3, es la 
version completa del Dr. LOGO de Digital Research. 

Si a pesar de todo quiere cargar la version de CP/M 2.2, inserte en la unidad una copia de 
la cara 4 y escriba 

| CPM 

Cuando aparezca el mensaje A>, escriba 

SUBMIT L0G02 

Al cabo de unos segundos aparecera el mensaje de presentacion, seguido del mensaje 
inductor, ?. 



Primer os pasos 

El mensaje ? indica que Dr. LOGO esta esperando que usted escriba algo en el teclado. 
Escriba (en minusculas) lo siguiente: 
fd 60 

y vera como aparece la tortuga y como se mueve hacia delante 60 unidades, dibujando al mismo 
tiempo. La pantalla se ha borrado y ha reservado una zona amplia para los graficos y una mas 
pequeha para el texto, con el signo ? cerca del borde inferior de la pantalla. 

Dr. LOGO decide en ocasiones redistribuir la pantalla para asignar mayor superficie a los 
graficos o al texto, segun convenga. 

Escriba: 

rt 90 

y la tortuga girara 90 grados hacia la derecha. Escriba ahora: 

fd 60 

y vera como la tortuga dibuja otra recta de 60 unidades de longitud perpendicular a la primera. 

Experimente con estas sencillas instrucciones, fd (de forward, adelante), bk (de backward, 
atras), rt (de right, derecha) y It (de left, izquierda), y observe la pantalla. 
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Procedimientos en Dr. LOGO 

Un procedimiento es una lista de instrucciones que explica a Dr. LOGO como realizar cierta 
tarea. 

Los procedimientos que usted escriba iran ampliando la lista de los incorporados a Dr. LOGO, 
que son las denominadas primitivas. 

fd, bk, rt y It son primitivas incorporadas que se pueden incluir en nuevos procedimientos. 

Otra primitiva util es cs, que borra la pantalla y envfa la tortuga a su situacion (posicion y 
orientacion) inicial. 

Un procedimiento sencillo 

Facilmente se comprende que si repetimos cuatro veces las instrucciones 
fd 60 rt 90 

obtendremos un cuadrado de 60 unidades de lado. 
El mismo efecto se consigue escribiendo 

repeat 4 [fd 60 rt 90] 

(repeat=repetir). Borre la pantalla, teclee esta instruccion y observe que ocurre. 

Podemos asignar esa formula a un nuevo procedimiento, que denominaremos cuadrado. Escriba 
lo siguiente: 

to cuadrado 

repeat 4 [fd 60 rt 90] 

end 

A partir de ahora, Dr. LOGO entendera cuadrado como si fuera una primitiva; cada vez que 
encuentre esa palabra, dibujara un cuadrado. Al procedimiento le podrfamos haber dado 
cualquier otro nombre, pero este nos recuerda cual es la tarea que el procedimiento realiza. 

Dr. LOGO permite que se teclee una serie de instrucciones seguidas, en una misma Ifnea. Asf, 

cuadrado rt 45 cuadrado 

dibuja dos cuadrados intercalando un giro de 45 grados entre ellos. 

Procedimientos con pardmetros 

Un procedimiento como el que acabamos de definir no nos servirfa de mucho si no pudieramos 
decirle de que tamano queremos que sea el cuadrado. Para ello podemos definir nuestro 
procedimiento de la siguiente manera: 

to cual qui ercuadrado :lado 
repeat 4 [fd :lado rt 90] 
end 

con lo que hemos introducido la idea de variable, llamada, en este caso, :lado. 

Observe que el nombre va precedido del signo de dos puntos, lo que indica a Dr. LOGO que 
:lado es una variable, no una orden. 

Cuando utilicemos este procedimiento, tendremos que suministrarle un valor de entrada. Por 
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ejemplo, cualquiercuadrado 150 dibujara un cuadrado de 150 unidades de lado. 
Enlacemos ahora dos procedimientos: 

cs cualquiercuadrado 100 rt 45 cualquiercuadrado 150 

La tortuga ha dibujado los dos cuadrados, girando el segundo 45 grados con respecto al primero. 

Observe que Dr. LOGO escribe el signo de admiracion ! para indicar que una Ifnea es 
continuacion de la anterior. 

Utilization de variables para recordar valores 

Dr. LOGO utiliza las variables, no solo para recordar valores, sino tambien para suministrar 
valores de entrada a los procedimientos. 

Empecemos por definir un nuevo procedimiento: 

to triangulo 

repeat 3 [fd :lado rt 120] 

end 

Para probarlo podemos escribir: 

make "lado 100 
triangulo 

(make= hacer). 

Si queremos averiguar que valor tiene asignado actualmente la variable :lado, basta con que 
tecleemos :lado a la derecha de ? y Dr. LOGO escribira su valor. 

Tambien podemos utilizar la variable :lado en un procedimiento distinto. Observe en el siguiente 
procedimiento como vamos incrementando el valor de :lado a cada paso para que el dibujo vaya 
siendo cada vez mayor: 

to dibujo 

triangulo It 60 triangulo rt 60 

make "lado :lado+4 

dibujo 

end 

make "lado 10 

cs dibujo 

Pulse [ESC] cuando quiera detener el programa. 



Edition de programas y procedimientos 

Dr. LOGO permite corregir los errores de mecanograffa y modificar los procedimientos 
definidos previamente. Las teclas de edicion son los siguientes: 

• Las teclas del cursor, I s 4* <- ->, que mueven el cursor caracter o Ifnea a Ifnea. 

• Las teclas del cursor, I s 4* 4- ->, combinadas con [CONTROL], llevan el cursor al 
principio o al final de la pagina, o a la izquierda o a la derecha de la Ifnea. 

• [CLR] borra el caracter que esta en la posicion del cursor; [<-BORR] borra el caracter 
que esta a la izquierda del cursor. 
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• [RETURN] indica a Dr. LOGO que se ha terminado de editar una Ifnea de ordenes; 
cuando se esta editando un procedimiento, intercala una Ifnea en bianco. 

• [ESC] abandona la edicion. 

• [COPIA] indica a Dr. LOGO que ha terminado la edicion del procedimiento. 

Cuando este introduciendo ordenes o procedimientos nuevos, corrija el texto de la Ifnea actual 
con las teclas descritas. Todos los caracteres que teclee, a excepcion de los mencionados, seran 
insertados en la posicion del cursor. 

Para editar un procedimiento definido previamente, utilice la orden ed. Dr. LOGO escribe la 
version antigua del procedimiento y permite que se utilicen los recursos descritos para mover el 
cursor por la pantalla y modificar lo que se desee. 

Modifique el procedimiento dibujo tecleando 

ed "dibujo 

Practique con las diferentes teclas de edicion. Cuando haya terminado, pulse [ESC]; Dr. LOGO 
abandonara lo que hay en la pantalla y conservara la version anterior del procedimiento. 

Teclee otra vez ed "dibujo, ponga un 8 en lugar del 4, pulse [COPIA] para terminar la edicion y 
vuelva a ejecutar el procedimiento para observar el efecto de la modificacion. No olvide asignar 
un valor inicial a :lado. 

Sugerencias para el trabajo con Dr. LOGO 

La memoria utilizada por Dr. LOGO esta dividida en nodos. Para averiguar cuantos quedan 
libres escriba: 

nodes 

En ocasiones, cuando Dr. LOGO ha utilizado casi todos los nodos disponibles, dedica unos 
instantes a reorganizar la memoria, durante los cuales se puede observar como se para la 
tortuga. El usuario puede pedir a Dr. LOGO que reorganice la memoria escribiendo la orden 

recycle 

Esto generalmente permite continuar despues de que Dr. LOGO se haya quejado de que no le 
quedan mas nodos libres. 

Si piensa grabar sus procedimientos en disco, asegurese antes de que en el disco haya suficiente 
espacio libre. Puede para ello utilizar la orden CAT de AMSDOS (vease la parte 7 del Curso de 
introduccion'). 

Eche un vistazo a las paginas siguientes y pruebe alguno de los ejemplos; no espere entenderlo 
todo al primer intento. A medida que vaya familiarizandose con Dr. LOGO ira siendo capaz de 
utilizar nuevas instrucciones. 

Cuando desee concluir su sesion de trabajo con Dr. LOGO escriba: 

bye 



Lista de las primitivas de Dr. LOGO 

En esta seccion damos la relacion de las primitivas de Dr. LOGO, agrupadas en clases y 
ordenadas alfabeticamente dentro de cada grupo. Para la mayor parte de ellas se incluyen 
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ejemplos de aplicacion. 



Nota: Las primitivas que en esta lista aparecen marcadas con un asterisco (*) no estan 
disponibles en la version de Dr. LOGO para CP/M 2.2 (cara 4 del juego de discos del sistema). 
Por consiguiente, los programas que utilicen esas primitivas no seran ejecutables en el CPC664 
ni en el CPC464 + DDI I , en los cuales solo se puede utilizar CP/M 2.2 (no CP/M Plus). 



Proceso depalabrasy listas 

(Observe que en los ejemplos hemos incluido los signos ? y > donde corresponde.) 

ascii 

Da el codigo ASCII del primer caracter de la palabra de entrada. 

?ascii "G 
71 

?ascii "9 
103 

bf 

(but first, todos menos el primero). Da como salida todos los caracteres de la entrada, salvo el 
primero. 

?bf "trama 
rama 

?bf [1 2 3] 
[2 3] 



bl 

(but last, todos menos el ultimo). Da como salida todos los caracteres de la entrada, salvo el 
ultimo. 

?bl "tramas 

trama 

?bl [12 3 4] 

[1 2 3] 



char 

Da el caracter cuyo codigo ASCII es el numero de entrada. 

?char 83 
S 

count 

(contar). Da el numero de elementos de que consta el objeto de entrada. 

?count "dos 
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3 

?count [0 12 3] 

4 



emptyp 

(empty property, propiedad de vacfo). Da como salida TRUE (verdadero) si la entrada es una 
palabra vacfa o una lista vacfa, y FALSE (falso) en caso contrario. 

?emptyp " 
TRUE 

?emptyp [ ] 
TRUE 

?emptyp [x] 
FALSE 

?make "x [ ] 
emptyp :x 
TRUE 



first 

(primero). Da como salida el primer elemento del objeto de entrada (sin tener en cuenta los 
corchetes). 

'first "kilo 

k 

?first [1 2 3] 

1 



fput 

(firstput, poner el primero). Da como salida un objeto formado poniendo el primer objeto de 
entrada como primer elemento del segundo objeto de entrada. 

?fput "t "rama 

trama 

?fput 1 [2 3] 

[1 2 3] 



item 

(elemento). Da como salida el elemento especificado del objeto de entrada. 

?item 4 "grande 
n 

last(*) 

(ultimo). Da como salida el ultimo elemento del objeto de entrada (cfr. first). 

?last "pez 

z 
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lc(*) 

(lower case, minusculas). Da como salida la palabra de entrada, pero convirtiendo las mayusculas 
a minusculas. (Vease tambien uc.) 

?lc "NortE 
norte 



list 

Da como salida una lista consistente en los objetos de entrada; conserva los corchetes externos 
de la lista (comparese con se). 

?(list 12 3 4) 

[12 3 4] 

?list "garcia [Javier] 

[garcia [Javier]] 

?(list) 

[] 



listp (*) 

(list property, propiedad de lista). Da como salida TRUE (verdadero) si la entrada es una lista, y 
FALSE (falso) en caso contrario. 

?listp "madre 

FALSE 

?listp [padre hermano hermana] 

TRUE 



Iput (*) 

(last put, poner el ultimo.) Da como salida un objeto formado poniendo el primer objeto de 
entrada como ultimo elemento del segundo objeto de entrada. 

?1 put "r "recto rector 
?1 put "r [recto] 
[recto r] 



memberp (*) 

(member property, propiedad de pertenencia). Da como salida TRUE (verdadero) si el primer 
objeto de entrada es un elemento del segundo objeto de entrada, y FALSE en caso contrario. 

?memberp "b "palabra 

TRUE 

?memberp "chocolate [ [vai nil la] [chocolate] [fresa]] 

FALSE 

?memberp [chocolate] [[vai nil la] [chocolate] [fresa]] 

TRUE 



numberp 

(number property, propiedad de numero). Da como salida TRUE (verdadero) si el objeto de 
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entrada es un numero, y FALSE (falso) en caso contrario. 

?numberp 374.926 

TRUE 

?numberp "siete 

FALSE 

?numberp first [2 4 6 8] 

TRUE 



piece (*) 

Da como salida un objeto consistente en los elementos especificados del objeto de entrada. 

?piece 2 5 "procedimiento 

roce 

?piece 3 5 [Tito Juan Miguel Margarita Paco] 

[Miguel Margarita Paco] 



se 

(sentence, frase). Da como salida una lista consistente en todos los objetos de entrada; elimina 
los corchetes externos de la lista (comparese con list). 

?make "lista_ instrucciones rl 

repeat 4 [fd 50 rt 90] 

?run (se "cs :lista _instrucciones "ht) 

El signo de subrayar que figura entre lista e instrucciones se obtiene con [SHIFT]0. 



shuffle (*) 

(barajar). Da como salida una lista que consta de los mismos elementos que la lista de entrada, 
pero dispuestos en orden aleatorio. 

?shuffle [abed] [c b d a] 

uc (*) 

(upper case, mayusculas). Da como salida la palabra de entrada, pero convirtiendo las minusculas 
a mayusculas. (Vease tambien Ic.) 

?uc "Letras 
LETRAS 

where (*) 

(donde). Da como salida el numero calculado en la expresion memberp mas reciente que haya 
dado resultado TRUE. 

?memberp "r "Amstrad 

TRUE 

?show where 

5 
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word 

(palabra). Da una palabra formada con las palabras de entrada. 

?word "nueva "mente 
nuevamente 

wordp 

Da como salida TRUE (verdadero) si el objeto de entrada es una palabra o un numero. 

?wordp "hoi a 
TRUE 

?wordp [] 
FALSE 

Operaciones aritmeticas 

arctan (*) 

Da como salida el arco (en grados) cuya tangente es el numero de entrada. 

?arctan 


?arctan 1 
45 

COS 

Da como salida el coseno del angulo de entrada (considerado en grados). 

?cos 60 
0.5 

int 

Da la parte entera del numero de entrada. 

?int 4/3 
1 

quotient (*) 

(cociente). Da el cociente de la division entera de los dos numeros de entrada. 

?quotient 14 4 

3 

?14/4 

3.5 

random 

Da un entero aleatorio no negativo menor que el numero de entrada. 
?random 20 

Manual de Amstrad CPC 6 1 28 (revision 2008) - Pagina 236 



remainder (*) 

(resto). Da el resto de la division entera de los dos numeros de entrada, (el primero dividido por 
el segundo). 

?remainder 7 3 

1 

?remainder 8 4 





rerandom (*) 

Hace que una expresion random ulterior reproduzca la misma sucesion aleatoria (char 9 es un 
tabulador horizontal para espacios.) 

?repeat 10 [(type random 10 char 9)] 

375 3 2 4 2 6 

?repeat 10 [(type random 10 char 9)] 

991 6 1 3 5 1 

?rerandom 

?repeat 10 [(type random 10 char 9)] 

290 3 1 6 2 3 7 

?rerandom 

?repeat 10 [(type random 10 char 9)] 

290 3 1 6 2 3 7 



round (*) 

(redondear). Da como salida el numero de entrada redondeado al entero mas proximo. 

?round 3.333333 

3 

?round 3.5 

4 

sin 

Da como salida el seno del angulo de entrada (considerado en grados). 

?sin 30 
0.5 

+ 

Da la suma de los numeros de entrada. 

?+ 2 2 

4 

?2+2 

4 
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Da la diferencia de los dos numeros de entrada. 

?- 10 5 
5 

?10-5 
5 



Da el producto de los numeros de entrada. 

?* 4 6 
24 
?4*6 
24 



/ 

Da el cociente de los dos numeros de entrada. 

?/ 25 5 
5 

?25/5 
5 



Operaciones logicas 



and 



Da como salida TRUE (verdadero) si el valor logico de todas las expresiones de entrada es 
'verdadero', y FALSE (falso) en cualquier otro caso. 

?and (3<4) (7>4) 
TRUE 



not 

Da como salida TRUE si la expresion de entrada es 'falsa'. 

Da como salida FALSE si la expresion de entrada es 'verdadera'. 

?not (3=4) 

TRUE 

?not (3=3) 

FALSE 



or 

Da como salida FALSE (falso) si todas las expresiones de entrada son 'falsas', y TRUE en 
cualquier otro caso. 

?or "TRUE "FALSE 
TRUE 
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?or (3=4) (1=2) 
FALSE 



Da como salida TRUE (verdadero) si los dos objetos de entrada son iguales, y FALSE en caso 
contrario. 

?= "LOGO "LOGO 

TRUE 

?1=2 

FALSE 



Da como salida TRUE (verdadero) si la primera palabra de entrada es mayor que la segunda, y 
FALSE en caso contrario. 

?>19 20 
FALSE 
?20 >19 

TRUE 



Da como salida TRUE (verdadero) si la primera palabra de entrada es menor que la segunda, y 
FALSE en caso contrario. 

?< 27 13 

FALSE 

?13<27 

TRUE 



Variables 

local 

Hace que la variable o variables de entrada sean accesibles solamente al procedimiento actual y a 
los procedimientos por el invocados. 

>(local "x "y "z) 

make 

(hacer). Asigna a la variable de entrada el valor del objeto de entrada. 

?make "lado 50 

?:lado 

50 

namep (*) 

(name property, propiedad de nombre). Da como salida TRUE (verdadero) si la palabra de 
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entrada es el nombre de una variable, y FALSE en caso contrario. 

?make "sabor "chocolate 

?:sabor 

chocolate 

?namep "sabor 

TRUE 

?namep "chocolate 

FALSE 



thing (*) 

(cosa). Da el valor de la variable citada. 

?make "ordenador "amstrad 
?thing "ordenador 
amstrad 

Procedimientos 
define (*) 

(definir). Toma como definicion del procedimiento especificado la lista de entrada 

?define "cuadrado [[] [repeat 4 [fd 50 rt 90]]] 

?po "cuadrado 

to cuadrado 

repeat 4 [ fd 50 rt 90 ] 

end 

?text "cuadrado 

[[] [repeat 4 [fd 50 rt 90]]] 



end 

Indica el final de la definicion de un procedimiento; la palabra end debe figurar sola al principio 
de la ultima Ifnea. 

?to cuadrado 

>repeat 4 [fd 50 rt 90] 

>end 

cuadrado defined 

?cuadrado 



po 

(print out, listar). Da el listado de la definicion de los procedimientos o variables especificados. 

?po "cuadrado 

to cuadrado 

repeat 4 [fd 50 rt 90] 

end 

?make "x 3 

?po "x 

x is 3 
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pots 

(print out titles, listar tftulos). Da la lista de los nombres y tftulos de todos los procedimientos 
que hay en el espacio de trabajo. 

?pots 

text(*) 

Da la lista de la definicion del procedimiento especificado. 

?to estrella ;estrella de cinco puntas 

>repeat 5 [fd 30 rt 144 fd 30 It 72] 

>end 

estrella defined 

?text "estrella 

[[] [repeat 5 [fd 30 rt 144 fd 30 It 72]]] 

to 

Sehala el inicio de la definicion de un procedimiento. 

?to cuadrado 

>repeat 4 [fd 50 rt 90] 

>end 

cuadrado defined 

Edition 

ed 

(edit, editar, corregir). Carga los procedimientos o variables especificados en el tampon del 
editor de pantalla. 

?ed "cuadrado 

edall (*) 

(edit all, editar todos). Carga todas las variables y procedimientos en el tampon del editor de 
pantalla y entra en el modo de edicion. 

?edall 

edf(*) 

(edit file, editar fichero). Lee en el disco el fichero especificado y lo carga en el editor de 
pantalla. Si no existe ese fichero, lo crea y entra en el modo de edicion con el tampon vacio. 

?edf "estrella 
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Funciones de la impresora 

copyon (*) 

(copia activada). Activa el modo 'eco', en el que todos los caracteres que aparecen en la pantalla 
son reproducidos en la impresora. 

?copyon 

copy >qff '(*) 

(copia desactivada). Desactiva el modo 'eco'. 

?copyoff 

Pantalla de texto 

ct 

(clear text, borrar texto). Borra la ventana en la que esta actualmente el cursor; Neva el cursor al 
extremo superior izquierdo de la ventana. 

?ct 



cursor (*) 

Da como salida una lista de coordenadas que consiste en los numeros de columna y fila de la 
posicion actual del cursor en la ventana de texto. 

?ct 

?cursor 

[0 1] 

?(type [La posicion del cursor es\ ) show cursor 

La posicion del cursor es [26 4] 



pr 

(print, escribir). Escribe en la pantalla de texto los objetos de entrada; suprime los corchetes 
externos de las listas; efectua un retorno del carro despues de escribir el ultimo objeto. 
(Comparese con show y type.) 

?pr [a b c] 
a b c 



setcursor (*) 

Situa el cursor en la posicion especificada por la lista de entrada, que se interpreta como lista de 
coordenadas de texto. 

?ct 

?to imagen 

>make nx random 20 

>make "y random 12 
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>setcursor list :x :y pr "* 

>end 

?imagen 



setsplit 

Especifica el numero de lineas de texto que debe tener la pantalla mixta. (Vease ss.) 
?setsplit 10 



show 

(mostrar). Escribe en la pantalla de texto el objeto de entrada; mantiene los corchetes externos 
de las listas; efectua un retorno del carro. (Comparese con pr y type.) 

?show [a b c] 
[a b c] 



ts 

(text screen, pantalla de texto). Asigna la pantalla completa como pantalla de texto. 

?ts 



type 

(mecanografiar). Escribe en la pantalla los objetos de entrada: suprime los corchetes externos de 
las listas; no efectua un retorno del carro despues de escribir el ultimo objeto. (Comparese con 
pr y show.) 

?type [a b c] 
a b c 



Pantalla grdflca 

Como puede observar, la pantalla esta en modo I , con cuatro colores posibles; el sistema de 
coordenadas es igual al de BASIC. Las coordenadas se redondean al numero par mas proximo 
correspondiente a un punto de la pantalla. Los colores rojo, verde y azul se pueden graduar con 
los numeros 0, I y 2. 

clean 

(limpiar). Borra la pantalla grafica sin afectar a la tortuga. 

?fd 50 
?clean 



cs 

(clear screen, borrar pantalla). Borra la pantalla grafica y restablece la situacion inicial de la 
tortuga: posicion en el punto [0,0] y rumbo grados (norte), pluma abajo. 

?rt 90 fd 50 
?cs 
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dot 

(punto). Dibuja un punto en la posicion especificada por la lista de coordendas con el color de 
pluma actual. 

?dot [50 10] 



dote (*) 

(dot colour, color del punto). Da como salida el numero del color que hay en el punto de 
coordenadas especificadas por la lista de entrada. Si el punto esta fuera de la pantalla, da -I . 

?cs 

?setpc 1 

?dot -50 50 

?setpc 2 

?dot 50 50 

?setpc 3 

?dot 50 -50 

?dotc 50 50 

2 

?dotc -50 -50 



?dotc 1000 3000 

-1 



fence 

(valla). Establece un Ifmite que confina la posicion de la tortuga a la pantalla grafica visible. Ese 
Ifmite se suprime con window. 

?fence 

?fd 300 

Turtle out of bounds 



fill (*) 

(no implementada en la version actual de CP/M Plus) 

(rellenar). Rellena un area con el color actual de la pluma; para ello cambia el color del punto 
que esta bajo la tortuga (y todos los puntos contiguos que sean del mismo color) utilizando el 
estado actual de la pluma. 

?make "x 5 

?cs 

?st 

?pd 

?repeat 30 [fd :x rt 90 make "x :x + 5] 

?fd 20 rt 90 

?fd 10 

?pu 

?home 

?bk 2 

?pd 
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?setpc 2 
?fill 



(full screen, pantalla completa). Asigna la pantalla entera a los graficos. 

?fs 



pal 

(palette, paleta). Escribe la listas de los numeros que representan las proporciones de los colores 
rojo, verde y azul asignadas a la pluma especificada. 

?pal 2 
[0 2 2] 



setbg (*) 

(set background, definir fondo). Asigna al color del fondo de la pantalla grafica el numero 
especificado. 

?sf 

[0 SS 5 FENCE 1] 

(Esto muestra que el color del fondo es cero.) 

?pal 

[0 1] 

?setbg 2 

?sf 

[2 SS 5 FENCE 1] 

setpal 

(set palette, definir paleta). Asigna una combinacion de colores a la paleta utilizada po, la pluma 
especificada. La lista representa las proporciones de rojo, verde y azul. 

?setpal 3[1 1 2] 
?pal 3 
[1 1 2] 

setscrunch (*) 

(set scrunch, definir relacion de escalas; scrunch significa "estrujar" y hace referenda a la 
deformacion que se produce en las imagenes de la pantalla cuando las escalas vertical y 
horizontal son distintas). Establece la relacion entre las escalas vertical y horizontal en la pantalla 
grafica. 

?sf 

[0 SS 5 FENCE 1] 

?to circunferencia 

>repeat 360 [f:l 1 rt 1] 

>end 
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circunferencia defined 

?setscrunch 2 

?sf 

[0 SS 5 FENCE 2] 

?circunferencia 

?setscrunch 2.5 

?circunferencia 



(screen facts, datos de pantalla). Escribe en la pantalla toda la informacion relativa a la pantalla 
grafica. El formato es: [<color de fondo> <estado de pantalla> <lineas texto> <estado de 
ventana> <relacion de escalas>]. 

• <color de fondo> es el numero de pluma para el fondo (siempre igual a en CP/M 2.2). 

• <estado de pantalla> puede ser SS (pantalla mixta), FS (pantalla completa para graficos) 
o TS (pantalla completa para texto). 

• <lfneas texto> es el numero de Ifneas reservadas para texto en la pantalla mixta. 

• <estado de ventana> indica el modo WINDOW, WRAP o FENCE. 

• <relacion de escalas> representa la relacion entre las escalas vertical y horizontal de la 
pantalla grafica. Su valor se puede modificar con setscrunch (no en CP/M 2.2). 

?sf 

[0 SS 5 FENCE 2.5] 

(split screen, pantalla mixta). Establece una ventana para texto dentro de la pantalla grafica. 

?ss 



window 

(ventana). Permite que la tortuga se saiga de los Ifmites de la pantalla grafica visible despues de 
una orden wrap o fence. 

?fence fd 300 
Turtle out of bounds 
?window 
?fd 300 



wrap 

(superponer borde con borde). Hace que la tortuga aparezca por el lado opuesto de la pantalla 
cuando sobrepasa algun borde. 

?cs wrap 
?rt 5 fd 1000 
?cs window 
?rt 5 fd 1000 
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Grdficos de tortuga 



bk 



(backward, atras). Mueve la tortuga el numero de pasos especificado por el numero de entrada, 
en sentido opuesto al senalado por su rumbo. 

?cs fd 150 
?bk 50 



fd 

(forward, adelante). Mueve la tortuga el numero de pasos especificado por el numero de 
entrada, en el sentido senalado por su rumbo. 

?fd 80 



home (*) 

Lleva la tortuga a su situacion inicial: posicion [0 0] (centro de la pantalla grafica) y rumbo 
(norte). 

fd 100 
?rt 45 
?fd 100 
?home 



ht 

(hide turtle, ocultar tortuga). Hace la tortuga invisible, con lo que los dibujos son menos 
confusos y se realizan a mayor velocidad. 

?ht 

?cs fd 50 

?st 



It 

(left, izquierda). Gira el rumbo de la tortuga hacia la izquierda el numero de grados especificado 
por el numero de entrada. 

?lt 90 

pd 

(pen down, bajar pluma). Baja la pluma de la tortuga para que esta dibuje al moverse. 

?fd 20 pu fd 20 

?pd 

?fd 20 

pe 

(pen erase, pluma de borrar). Cambia el color de la pluma de la tortuga al color del fondo; la 
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tortuga borra lo que encuentra dibujado en su camino. 

?fd 50 
?pe 

?bk 25 
?fd 50 
?pd fd 25 



pu 

(pen up, subir pluma). Sube la pluma de la tortuga para que esta no dibuje al moverse. 

?fd 30 
?pu 



?fd 30 
?pd fd 30 



px 

(pen exchange, pluma de inversion). Hace que la tortuga cambie el color de los pixels que 
encuentra coloreados en su camino por el color complementario o inverse 

?fd 20 pu fd 20 

?pd setpc 3 fd 20 

?px 

?bk 80 

?fd 80 

?pd bk 100 



rt 

(right, derecha). Gira el rumbo de la tortuga hacia la derecha el numero de grados especificado 
por el numero de entrada. 

?rt 90 



seth 

(set heading, establecer rumbo). Orienta la tortuga en el rumbo absoluto especificado por el 
numero de entrada (en grados). Los numeros positivos la hacen girar en el sentido de las agujas 
del reloj; los negativos, en el sentido contrario. 

?seth 90 



setpc 

(set pen colour, establecer color de pluma). Asigna a la tortuga la pluma especificada por el 
numero de entrada. 

?setpc 1 



setpos 

(set position, establecer posicion). Lleva la tortuga al punto especificado por la lista de 
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coordenadas de entrada. 

?setpos [30 20] 

setx(*) 

Lleva la tortuga a un punto cuya coordenada X es la especificada, sin modificar la coordenada Y. 
(Vease tambien sety.) 

?setx 80 
?fd 100 
?setx -50 
?fd 50 



sety (*) 

Lleva la tortuga a un punto cuya coordenada Y es la especificada, sin modificar la coordenada X. 
(Vease tambien setx.) 

?sety 90 
?fd 20 
?sety -50 
?fd 50 

St 

(show turtle, mostrar tortuga). Hace la tortuga visible, si estaba oculta. 

?ht 

?fd 50 
?st 

tf 

(turtle facts, datos de tortuga). Escribe en la pantalla la informacion relativa a la tortuga. El 
formato es: [<coorx> <coory> <rumbo> <estado de pluma) <pluman> <visible>]. 

• <coor x> y <coor y> son las coordenadas de la posicion actual de la tortuga. 

• <rumbo> es la orientacion actual de la tortuga. 

• <estado de pluma> indica PD (pluma bajada), PE (pluma de borrar), PX (pluma de 
inversion) o PU (pluma subida). 

• < pluma n > indica el numero de pluma de la tortuga. 

• <visible> es TRUE (verdadero) si la tortuga es visible. 

?setpos [15 30] 

?rt 60 

?setpc 3 

?pe 

?ht 

?tf 

[15 30 60 PE 3 FALSE] 
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towards (*) 

(hacia). Da como salida un rumbo tal que, si la tortuga lo tuviera, "mirarfa" hacia la posicion 
especificada con la lista de coordenadas. 

?seth towards list :x :y 

Gestion del espacio de trabajo 

er 

(erase, borrar). Borra del espacio de trabajo los procedimientos especificados. 

?er "cuadrado 

erall (*) 

(erase all, borra todos). Borra del espacio de trabajo todos los procedimientos y variables. 
?erall 

em 

(erase name, borrar nombre). Borra del espacio de trabajo las variables especificadas. 

?make "lado [100] 

?make "angula [45] 

?:lado :angula 

[100] 

[45] 

?ern [lado angulo] 

?:lado 

lado has vo value 

nodes 

Da el numero de nodos que quedan libres en el espacio de trabajo. 

?nodes 



noformat (*) 

Elimina del espacio de trabajo el formato de los procedimientos, incluidos los comentarios, con 
el fin de liberar nodos. 

?to cuadrado 
>pd 
>repeat 4 

> fd 50 ; esto es lo 

> rt 90] ; que se repite 
>pu 

>end 

cuadrado defined 

?noformat 

?po "cuadrado 
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to cuadrado 

pd 

repeat 4 [fd 50 rt 90] 

pu 

end 



poall (*) 

Muestra las definiciones de todos los procedimientos y variables del espacio de trabajo. 

?poall 

pons (*) 

Muestra los nombres y valores de todas las variables globales del espacio de trabajo. 

?pons 

medio es 40 
pequeno es 20 
grande es 80 

pops (*) 

Muestra los nombres y definiciones de todos los procedimientos del espacio de trabajo. 

?pops 

recycle 

Libera el mayor numero posible de nodos y reorganiza el espacio de trabajo. 

?recycle 
?nodes 

Listas de propiedades 

glist 

(get list, obtener lista). Da una relacion de todos los objetos del espacio de trabajo que tienen la 
propiedad de nombre especificado en sus respectivas listas de propiedades. 

?glist ".DEF 

gprop 

(get property, obtener propiedad). Da el valor que tiene en el objeto de entrada la propiedad 
cuyo nombre se especifica. 

?make "estatura "172 
?gprop "estatura ".APV 
172 
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plist 

(property list, lista de propiedades). Escribe la lista de propiedades del objeto de entrada. 

?plist '"statura 
[.APV 172] 

pprop 

(put property, poner propiedad). Pone el par de propiedades de entrada en la lista de 
propiedades del objeto especificado. 

?pprop "listed ".APV "lector 

?:usted 

lector 

pps (*) 

(property pairs, pares de propiedades). Muestra todos los pares de propiedades no estandar de 
todos los objetos que hay en el espacio de trabajo. 

?pprop "Sally "extension 213 

?pps 

Sally's extension is 213 

?pl ist "Sally 

[extension 213] 

remprop 

(remove property, retirar propiedad). Suprime la propiedad especificada de la lista de 
propiedades del objeto de entrada. 

?remprop "listed ".APV 

Ficheros en disco 
change/ (*) 

(change file, cambiar fichero). Cambia el nombre de un fichero en el directorio de un disco. 

?dir 

[CUADRADO CIRCULO ESTRELLA] 

?changef "circunferencia "circulo 

?dir 

[CUADRADO CIRCUNFERENCIA ESTRELLA] 

defaultd (*) 

(default drive, unidad implfcita). Da el nombre de la unidad de disco implfcita. 

?defaultd 
A: 
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dir 

(directory, directorio). Da la lista de todos los nombres de ficheros creados por Dr. LOGO que 
se encuentran en la unidad de disco implfcita; acepta sfmbolos comodfn. 

?dir "a:???????? 

(Consulte la parte I del capftulo 'AMSDOS y CP/M', donde se explica como utilizar los sfmbolos 
comodfn; Dr. LOGO no acepta el *.) 



dirpic (*) 

(picture, imagen). Da la lista de los nombres de los ficheros que contienen imagenes de pantalla 
en la unidad especificada (o en la implfcita, si no se especifica otra). Acepta sfmbolos comodfn. 

?dirpic 

[JUEGO CUADRADOS CIUDAD ESFERA REL03] 



load 

Lee el fichero especificado y lo carga en el espacio de trabajo. 

?load "prueba 
?load "b:dibujos 

loadpic (*) 

Lee el fichero de imagen especificado y forma la imagen correspondiente en la pantalla. 

?loadpic "juego 
?loadpic "b:juego 

save 

Graba en el disco el contenido del espacio de trabajo, con el nombre de fichero especificado. 

?save "dibujos 

Nota. Antes de grabar, inserte un disco inicializado en el que quede espacio suficiente para el 
fichero que vaya a grabar. No grabe nunca nada en el disco maestro (de hecho, los orificios de 
proteccion de los discos maestros deben estar siempre cerrados). 

Si esta utilizando la version de Dr. LOGO para CP/M 2.2 (cara 4), no podra cambiar el disco a 
mitad de la sesion de trabajo. En este caso es aun mas importante disponer de un disco de 
trabajo con CP/M 2.2 y Dr. LOGO en el que haya abundante espacio libre para grabar 
programas. 

savepic (*) 

Graba en el disco informacion completa sobre la imagen que hay en la pantalla, con el nombre 
de fichero especificado. 

?savepic "esfera_reloj 
?savepic "b:esfera_reloj 
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Nota. Antes de grabar, inserte un disco inicializado en el que quede espacio suficiente para el 
fichero que vaya a grabar. No grabe nunca nada en el disco maestro (de hecho, los orificios de 
proteccion de los discos maestros deben estar siempre cerrados). 

Si esta utilizando la version de Dr. LOGO para CP/M 2.2 (cara 4), no podra cambiar el disco a 
mitad de la sesion de trabajo. En este caso es aun mas importante disponer de un disco de 
trabajo con CP/M 2.2 y Dr. LOGO en el que haya abundante espacio libre para grabar 
programas. 

setd (*) 

(definir unidad). Establece como unidad implicita la especificada. 

?defaultd 

A: 

?dir 

[CUADRADO CIRCUNFERENCIA ESTRELLA] 

?setd b: 

?defaultd 

E: 

?dir 

[TRIANGULO CASA] 

Teclado y joystick 
buttonp 

(button pressed, boton pulsado). Da como salida el valor logico TRUE (verdadero) si esta 
pulsado el boton del joystick cuyo numero se especifica (0 o I ). 

?to disparo 
>label "bucle 

>if (buttonp 0) [pr [fuego el 0!]] 
>if (buttonp 1) [pr [fuego el 1!]] 
>go "bucle 
>end 
La situacion de la empunadura se determina con paddle. 

keyp 

(key pressed, tecla pulsada). Da como salida el valor logico TRUE (verdadero) si se ha tecleado 
alguna tecla y esta en espera de ser leida. 

?to tecla 

>if keyp [op re] [op "] 

>end 



paddle 

Determina la situacion del joystick o el I . El significado de los valores generados es el siguiente: 
Valor Significado 



255 Inactivo 
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1 


Arriba 

Arriba y a la derecha 




2 


A la derecha 




3 


Abajo y a la izquierda 




4 


Abajo 




5 


Abajo y a la izquierda 




6 


A la izquierda 




7 


Arriba y a la izquierda 


?paddle 
255 







Los botones de disparo se comprueban con buttonp. 

rc 

(read character, leer caracter). Da como salida el primer caracter que se teclee a continuacion. 

?make "tecla rc 

... ahora teclee una X ... 

?:tecla X 



rl 

(read list, leer lista). Da como salida una lista que consiste en la Ifnea que se va a teclear a 
continuacion. La entrada tiene que terminar con un retorno del carro. 

?make "lista_ instrucciones rl 
repeat 4 [fd 50 rt 90] 
?:1 ista_instrucciones 
[repeat 4 [fd 50 rt 90]] 



rq 

(read quote, leer literal me nte). Da como salida una palabra que consiste en la Ifnea que se va a 
teclear a continuacion. La entrada tiene que terminar con un retorno del carro. 

?make "orden rq 

repeat 3 [fd 60 rt 120] 

?:orden 

repeat 3 [fd 60 rt 120] 

Sonido 

Las ordenes de sonido son peculiares de la implementacion para AMSTRAD de Dr. LOGO; son 
similares a sus analogos en BASIC. 

Consulte la parte 9 del 'Curso de introduccion'. 
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sound 

Envfa un sonido a la cola de sonidos. El formato es: [<situacion de canales> <periodo de 
tono> <duracion> <volumen> <envolvente de volumen> <envolvente de tono> 
<ruido>]. Solamente los dos primeros parametros son obligatorios. 

?sound [1 20 50] 



em 

Define una envolvente de volumen. El formato es: [<numero de la envolvente> <secciones de 
envolvente>]. 

?env [1 100 2 20] 
?sound [1 200 300 5 1] 



ent 

Define una envolvente de tono. El formato es: [<numero de la envolvente> <secciones de 
envolvente >]. 

?ent [1 100 2 20] 
?sound [1 200 300 5 1 1] 



release 

Libera los canales de sonido que han sido retenidos en una orden sound. Los canales que se 
liberan son: 



Valor 


Canales 1 


de 




entrada 







Ninguno 


1 


A 


2 


B 


3 


AyB 


4 


C 


5 


AyC 


6 


ByC 


7 


AByC 


?release 1 
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Control de ejecucion 

bye 

Da por terminada la actual sesion de trabajo con Dr. LOGO. 

?bye 

CO 

Reanuda la ejecucion tras una pausa provocada por [CONTROLJZ, pause o ERRACT. 

?co 



go 

Ejecuta la Ifnea del procedimiento actual que esta identificada por la etiqueta que se menciona 
como entrada. 

>go "bucle 



if 

Ejecuta una de dos listas de instrucciones, dependiendo del valor logico de la expresion de 
entrada; las instrucciones deben ser listas literales entre corchetes. La segunda lista es opcional. 

>if (a>b) [pr [a es mayor]] 
>[pr [b es mayor]] 

label 

Identifica una Ifnea para que pueda ser ejecutada por una instruccion go. 

>label "bucle 

op 

(output, salida). Convierte el objeto de entrada en la salida del procedimiento y da por 
terminada la ejecucion de este. 

?op [resultado] 

repeat 

Ejecuta la lista de instrucciones el numero de veces especificado. 

?repeat 4 [fd 50 rt 90] 

run 

Ejecuta la lista de instrucciones especificada. 

?make "lista instrucciones [fd 40 rt 90] 
?run : 1 i sta instrucciones 
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stop 

Detiene la ejecucion del procedimiento actual y retorna a TOPLEVEL (nivel exterior, donde 
aparece el signo ?) o al procedimiento que lo invoco. 

?stop 



wait 

Introduce en la ejecucion del procedimiento una pausa de duracion especificada (en unidades de 
0.022 segundos). 

?wait 200 



Gestion de excepciones/errores 
catch 

Intercepta errores y situaciones especiales que ocurran durante la ejecucion de la lista de 
entrada. 

>catch "error [+ [] []] 
>pr [aqui estoy] 
aqui estoy 



error 

Da una lista cuyos elementos describen el error mas reciente. 

>catch "error [seguir.hasta. error] 
>show error 

notrace (*) 

Desactiva el modo 'trace' de ejecucion de los procedimientos. (Vease trace.) 
?notrace 

nowatch (*) 

Desactiva el modo 'watch' de ejecucion de los procedimientos. (Vease watch.) 

?nowatch 

pause 

Suspende la ejecucion del procedimiento actual para permitir la interaccion con el interprete o el 
editor. 

>if :lado>5 [pause] 
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throw 

Ejecuta la Ifnea identificada por el nombre de entrada de una expresion catch anterior. 

?throw "TOPLEVEL 

trace (*) 

Establece un modo de ejecucion de procedimientos consistente en que en la pantalla se indica 
que procedimiento esta siendo ejecutado en cada momento. 

?trace 



watch (*) 

Establece un modo de ejecucion de procedimientos consistente en que en la pantalla se indica 
que instruccion va a ser ejecutada y se hace una pausa para que el usuario observe o modifique 
la evolucion del procedimiento. 

?watch 



Primitivas del sistema 
.contents 

Muestra el contenido del espacio para sfmbolos de Dr. LOGO. 

.deposit 

Escribe el segundo numero de entrada en la posicion absoluta de memoria especificada por el 
primero. 

.examine 

Muestra el contenido de la posicion absoluta de memoria especificada. 

.in (*) 

Lee el valor presente en la puerta especificada. 

.out (*) 

Envfa el valor especificado a la puerta especificada. 

Variables del sistema 

ERRACT 

Si tiene el valor logico TRUE (verdadero), introduce una pausa cuando se produce un error y 
luego retorna a TOPLEVEL. 
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FALSE 

Valor de sistema. (Falso.) 

REDEFP 

Si tiene el valor logico TRUE (verdadero), permite la redefinicion de primitivas. 

TOPLEVEL 

throw "TOPLEVEL provoca la salida de todos los procedimientos pendientes (volviendo al nivel 
exterior). 

TRUE 

Valor de sistema. (Verdadero.) 



Propiedades del sistema 
APV 

Valor de propiedad asociado; es el valor de una variable global. 

.DEF 

Definicion de un procedimiento. 

.ENL (*) 

Fin de una Ifnea de procedimiento que esta partida por un retorno del carro o por espacios. 

.EMT(*) 

Principio de una Ifnea de procedimiento que esta partida por un retorno del carro o por 
espacios. 

.PRM 

Identifica una primitiva. 

.REM(obien;)(*) 

Observaciones o comentarios. 
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Capitulo 7 - Para su referenda 



Este capftulo contiene la mayor parte de la informacion que usted pueda necesitar para aprender 
a manejar el ordenador. 

Temas tratados: 

* Posiciones del cursor y codigos de control 

* Interrupciones 

* Caracteres ASCII y caracteres graficos 

* Esquemas del teclado 

* Sonidos 

* Mensajes de error 

* Palabras de error 

* Palabras reservadas de BASIC 

* Plantillas 

* Conexiones 

* Impresoras 

* Joysticks 

* Organizacion de los discos 

* Ampliaciones del sistema residentes (R.SX) 

* Memoria 

* Emulador de consola de CP/M Plus 

*Juego de caracteres de CP/M Plus 

Para mas completa informacion sobre BASIC y el firmware del CPC6 1 28, consultense las 
publicaciones SOFT967 y SOFT968, respectivamente. 

Parte 1: Posiciones del cursory codigos ampliados de control en BASIC 

En ciertas aplicaciones el cursor puede encontrarse fuera de la ventana de texto. Algunas 
operaciones fuerzan al cursor a ocupar una posicion permitida antes de poder ser llevadas a 
cabo. Son las siguientes: 

1 . Escribir un caracter. 

2. Exhibir el signo del cursor (el rectangulo). 

3. Obedecer los codigos de control senalados con un asterisco en la tabla siguiente. 

El proceso de forzar el cursor a ocupar una posicion permitida consiste en lo siguiente: 

1 . Si el cursor esta a la derecha del borde derecho de la ventana, salta al extremo izquierdo 
de la Ifnea siguiente. 

2. Si el cursor esta a la izquierda del borde izquierdo de la ventana, salta al extremo 
derecho de la Ifnea anterior. 
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3. Si el cursor esta por encima del borde superior, el contenido de la ventana se desplaza 
una linea hacia abajo y el cursor aparece en la primera Ifnea. 

4. Si el cursor esta por debajo del borde inferior, el contenido de la ventana se desplaza una 
Ifnea hacia arriba y el cursor aparece en la ultima Ifnea. 



Las comprobaciones y operaciones se realizan en el orden de la lista anterior. Las posiciones 
ilegales del cursor pueden ser cero o negativas, es decir, a la izquierda y por encima de la 
ventana. 

Los codigos del margen a 3 1 no producen ningun simbolo cuando se los envfa a la pantalla, sino 
que son interpretados como codigos de control (y deben ser utilizados con cuidado). Algunos de 
ellos alteran el significado de uno o varios de los codigos siguientes, que hacen las funciones de 
parametros del codigo original. 

Si se envfa un codigo de control a la pantalla grafica, su efecto es dibujar un sfmbolo relacionado 
con la funcion que tendria si se lo generase mediante el teclado (v. g., &07'I3EL': 
[CONTROLJG). Ejercera su funcion de control si se lo envfa a la pantalla mediante: 

PRINT CHR$(&07) o bien PRINT "Q." 

donde el sfmbolo del "timbre" se obtiene pulsando [CONTROLJG en el momento de teclear la 
instruccion PRINT. 

Los codigos sehalados con * en la lista siguiente fuerzan al cursor a ocupar una posicion 
permitida en la ventana antes de ser obedecidos. Para cada codigo se da el numero, en 
hexadecimal y en decimal, y la descripcion de su funcion. 
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Codigos de control en BASIC 



Valor 


Nombre 


Parametro 


Significado 


&00 


NUL 




Sin efecto. Se lo ignora. 


&0I 


SOH 


0a255 


Escribe el sfmbolo correspondiente al valor del 
parametro, lo que permite exhibir los sfmbolos 
del al 3 1 . 


&02 2 


STX 




Hace invisible el cursor de texto. Equivale a la 
orden CURSOR con el parametro (conmutador 
de usuario) igual a 0. 


&03 3 


ETX 




Hace visible el cursor de texto. Equivale a la 
orden CURSOR con el parametro (conmutador 
de usuario) igual a 1 . Notese que para visualizar el 
cursor desde dentro de un programa de BASIC 
(aparte de la situacion en que BASIC esta 
esperando una entrada por el teclado) es 
necesario ejecutar una orden CURSOR con el 
parametro (conmutador del sistema) igual a 1 . 


&04 4 


EOT 


0a2 


Establece el modo de pantalla. El parametro se 
toma MOD 4. Equivale a la orden MODE. 


&05 5 


ENQ 


0a255 


Envfa a la posicion del cursor grafico el caracter 
correspondiente al valor del parametro. 


&06 6 


ACK 




Habilita la pantalla de texto. (Vease &l 5 NAK.) 


&07 7 


BEL 




Produce un pitido. Observese que este codigo 
borra las colas de sonido. 


&08 8 


*BS 




Hace retroceder el cursor una posicion. 


&09 9 


*TAB 




Hace avanzar el cursor una posicion. 


&0A 10 


*LF 




Hace bajar el cursor una Ifnea. 


&0B II 


*VT 




Hace subir el cursor una Ifnea. 


&0C 12 


FF 




Borra la ventana de texto y Neva el cursor al 
extremo superior izquierdo. Equivale a la orden 
CLS. 


&0D 13 


*CR 




Lleva el cursor al extremo izquierdo de la Ifnea 
actual. 


&0E 14 


SO 


0a 15 


Establece la tinta asignada al papel. El parametro 
se toma MOD 1 6. Equivale a la orden PAPER. 


&0F 15 


SI 


0a 15 


Establece la tinta asignada a la pluma. El 
parametro se toma MOD 1 6. Equivale a la orden 
PEN. 


&I0 16 


*DLE 




Borra el caracter que esta en la posicion del 
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cursor. Rellena la celula del caracter con el color 
actual del papel. 


&II 17 


*DCI 




Borra desde el extremo izquierdo de la ventana 
hasta la posicion actual del cursor inclusive. 
Rellena las celulas afectadas con el color actual del 
papel. 


&I2 18 


*DC2 




Borra desde la posicion actual del cursor inclusive 
hasta el extremo derecho de la ventana. Rellena 
las celulas afectadas con el color actual del papel. 


&I3 19 


*DC3 




Borra desde el principio de la ventana hasta la 
posicion actual del cursor inclusive. Rellena las 
celulas afectadas con el color actual del papel. 


&I4 20 


*DC4 




Borra desde la posicion actual del cursor inclusive 
hasta el final de la ventana. Rellena las celulas 
afectadas con el color actual del papel. 


&I52I 


NAK 




Inhibe la pantalla de texto, la cual no reacciona 
ante nada que se le envfa mientras no reciba el 
codigo ACK (&06 6) 


&I622 


SYN 


Oa 1 


Se toma el parametro MOD 2. Opcion de 
transparencia: desactiva, 1 activa. 


&I723 


ETB 


Oa3 


Se toma el parametro MOD 4. Establece el modo 
de tinta para graficos: 

normal 

1 XOR 

2 AND 

3 OR 


&I8 24 


CAN 




Intercambia las tintas de pluma y papel. 


&I925 


EM 


0a255 
0a255 
0a255 
0a255 
0a255 
0a255 
0a255 
0a255 
0a255 


Define la matriz de un caracter definible por el 
usuario. Equivale a la orden SYMBOL. Lleva 
nueve parametros. El primero es el numero del 
caracter ocho restantes, el diseho del caracter. El 
bit mas significativo del primer byte corresponde 
al punto extremo superior izquierdo del caracter. 
El bit menos significativo del ultimo byte 
corresponde al punto extremo inferior derecho 
del caracter. 


&IA26 


SUB 


1 a 80 
1 a 80 


Define una ventana. Equivale a la orden 
WINDOW. Los dos primeros parametros 
especifican los bordes izquierdo y derecho de la 
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1 a 25 
1 a 25 


ventana; el menor de ellos se considera 
definitorio del borde izquierdo. Los dos ultimos 
parametros especifican los bordes superior e 
inferior de la ventana; el menor de ellos se 
considera definitorio del borde superior. 


&IB27 


ESC 




Sin efecto. Se lo ignora. 


&IC28 


FS 


Oa 15 
Oa3l 
Oa3l 


Asigna dos colores a una tinta. Equivale a la orden 
INK. El primer parametro (MOD 16) especifica el 
numero de tinta; los dos siguientes (MOD 32), los 
colores deseados. (Los valores 27 a 3 1 no 
corresponden a colores definidos.) 


&ID29 


GS 


Oa3l 
Oa3l 


Asigna dos colores al borde. Equivale a la orden 
BORDER. Los dos parametros (MOD 32) 
especifican los colores. (Los valores 27 a 3 1 no 
corresponden a colores definidos.) 


&IE30 


RS 




Lleva el cursor al extremo superior izquierdo de 
la ventana. 


&IF3I 


US 


1 a 80 
1 a 25 


Lleva el cursor a la posicion especificada dentro 
de la ventana actual. Equivale a la orden 
LOCATE. El primer parametro representa la 
columna; el segundo, la Ifnea. 
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Parte 2: El sistema operativo 

La gestion interna del CPC6 1 28 es realizada en tiempo real por un sofisticado sistema operativo. 
El sistema operativo es una especie de 'guardia de trafico' que controla el flujo entre entradas y 
salidas. 

Su funcion primordial es servir de intermediario (interfaz) entre BASIC y los circuitos 
electronicos. Por ejemplo, cuando el programa exige que parpadeen las tintas, BASIC entrega al 
sistema operativo los parametros y este realiza el trabajo. 

El sistema operativo de la maquina es lo que se suele denominar 'firmware'. Es un programa 
grabado en ROM y comprende las rutinas en codigo de maquina que son invocadas por las 
ordenes de alto nivel de BASIC. 

Si se siente tentado a modificar el contenido de posiciones de memoria (con la orden POKE) o a 
invocar subrutinas del sistema operativo (con CALL), grabe el programa antes de que sea 
demasiado tarde. 

El firmware del sistema operativo del CPC6 1 28 esta descrito en la publicacion SOFT 968 y 
queda fuera del alcance de este manual. 

Si usted piensa programar en codigo de maquina, debe proveerse de un programa ensamblador. 
El DEVPAC de AMSOFT incluye un ensamblador de Z80 reubicable, con editor, 
desensamblador y monitor. 
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Parte 3: Interrupciones 

El CPC6 1 28 utiliza ampliamente las interrupciones del Z80 para proporcionar un sistema 
operativo que incluye varias caracterfsticas multitarea, de las que son ejemplo las estructuras 
AFTER y EVERY descritas en otro lugar de este manual. El orden de prioridad de los 
temporizadores es el siguiente: 

• Break ([ESC] [ESC]) (detencion del programa) 

• Temporizador 3 

• Temporizador 2 (y las tres colas de sonido) 

• Temporizador I 

• Temporizador 

Las interrupciones solo se deben programar despues de considerar las consecuencias de los 
posibles estados intermedios de las variables en el momento de la interrupcion. La subrutina de 
interrupcion debe evitar interacciones indeseadas con el estado de las variables del programa 
principal. 

Las colas de sonidos tienen interrupciones independientes, de igual nivel de prioridad. Una vez 
iniciada una interrupcion de sonido, ya no puede ser interrumpida por otra de sonido. Este 
mecanismo permite que las rutinas de interrupcion de sonido puedan compartir variables sin 
estar sujetas a los riesgos mencionados. 

Cuando se habilita una interrupcion de cola de sonido (con ON SQ GOSUB), la interrupcion se 
realiza inmediatamente si la cola de sonido del canal correspondiente no esta llena; si lo esta, la 
interrupcion se producira cuando termine el sonido actual y quede espacio libre en la cola. La 
accion de la interrupcion inhibe el suceso, de modo que la subrutina debe ser rehabilitada si se la 
va a utilizar mas tarde. 

Las acciones de enviar un sonido y de examinar el estado de la cola inhiben tambien la 
interrupcion de sonido. 
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Parte 4: Caracteres ASCII y caracteres grdficos en BASIC 
ASCII 

En la tabla siguiente se da la relacion de los codigos y caracteres ASCII. Los numeros estan en 

decimal, octal y hexadecimal. En las siguientes paginas se ilustra el diseho de los caracteres 
generados por el CPC6 1 28. 

DEC OCTAL HEX Caracteres ASCII DEC OCTAL HEX ASCII DEC OCTAL HEX ASCII 

NUL([CONTROL]@) 50 062 32 2 100 144 64 d 

SOH([CONTROL]A) 51 063 33 3 101 145 65 e 

STX([CONTROL]B) 52 064 34 4 102 146 66 f 

ETX([CONTROL]C) 53 065 35 5 103 147 67 g 

EOT([CONTROL]D) 54 066 36 6 104 150 68 h 

ENQ([CONTROL]E) 55 067 37 7 105 151 69 i 

ACK([CONTROL]F) 56 070 38 8 106 152 6A j 

BRL([CONTROL]G) 57 071 39 9 107 153 6B k 

BS([CONTROL]H) 58 072 3A : 108 154 6C I 

HT([CONTROL]l) 59 073 3B ; 109 155 6D m 

LF([CONTROL]J) 60 074 3C < 110 156 6E n 

VT([CONTROL]K) 61 075 3D III 157 6F o 

FF([CONTROL]L) 62 076 3E > 112 160 70 p 

CR([CONTROL]M) 63 077 3F ? 113 161 71 q 

SO([CONTROL]N) 64 100 40 @ 114 162 72 r 

SI([CONTROL]0) 65 101 41 A 115 163 73 s 

DLE([CONTROL]P) 66 102 42 B 116 164 74 t 

DCI([CONTROL]Q) 67 103 43 C 117 165 75 u 

DC2([CONTROL]R) 68 104 44 D I 18 166 76 v 

DC3([CONTROL]S) 69 105 45 E I 19 167 77 w 

DC4([CONTROL]T) 70 106 46 F 120 170 78 x 

NAK([CONTROL]U) 71 107 47 G 121 171 79 y 

SYN([CONTROL]V) 72 110 48 H 122 172 7A z 

ETB([CONTROL]W) 73 I I I 49 I 123 173 7B { 

CAN([CONTROL]X) 74 112 4A J 124 174 7C | 

EM([CONTROL]Y) 75 113 4B K 125 175 7D } 

SUB([CONTROL]Z) 76 114 4C L 126 176 7E 

ESC([CONTROL][) 77 115 4D M 

IC FS([CONTROL]\) 78 116 4E N 

GS([CONTROL]]) 79 117 4F O 

RS([CONTROL]~) 80 120 50 P 

US([CONTROL]0) 81 121 51 Q 

SP 82 122 52 R 

! 83 123 53 S 
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000 


00 


1 


001 


01 


2 


002 


02 


3 


003 


03 


4 


004 


04 


5 


005 


05 


6 


006 


06 


7 


007 


07 


8 


010 


08 


9 


01 1 


09 


10 


012 


0A 


II 


013 


0B 


12 


014 


OC 


13 


015 


0D 


14 


016 


0E 


15 


017 


OF 


16 


020 


10 


17 


021 


1 1 


18 


022 


12 


19 


023 


13 


20 


024 


14 


21 


025 


15 


22 


026 


16 


23 


027 


17 


24 


030 


18 


25 


031 


19 


26 


032 


IA 


27 


033 


IB 


28 


034 


IC 


29 


035 


ID 


30 


036 


IE 


31 


037 


IF 


32 


040 


20 


33 


041 


21 



34 


042 


22 


II 


35 


043 


23 


# 


36 


044 


24 


$ 


37 


045 


25 


% 


38 


046 


26 


& 


39 


047 


27 


1 


40 


050 


28 


( 


41 


051 


29 


) 


42 


052 


2A 


* 


43 


053 


2B 


+ 


44 


054 


2C 


, 


45 


055 


2D 


- 


46 


056 


2E 




47 


057 


2F 


/ 


48 


060 


30 





49 


061 


31 


1 



84 


124 


54 


T 


85 


125 


55 


U 


86 


126 


56 


V 


87 


127 


57 


w 


88 


130 


58 


X 


89 


131 


59 


Y 


90 


132 


5A 


z 


91 


133 


5B 


[ 


92 


134 


5C 


\ 


93 


135 


5D 


] 


94 


136 


5E 


s\ 


95 


137 


5F 




96 


140 


60 


- 


97 


141 


61 


a 


98 


142 


62 


b 


99 


143 


63 


c 



Conjunto de caracteres grdflcos especificos de la mdquina 

Los caracteres aqui reproducidos estan representados en la matriz estandar de 8 x 8 en la que se 
basa la visualizacion de texto en la pantalla del CPC6 1 28. Los caracteres definidos por el usuario 
pueden ser agrupados para conseguir efectos especiales. Vease la seccion 'Caracteres definidos 
por el usuario' en el capitulo 'Cuando usted guste . . . 
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33 

&H21 
&X001 00001 

IT 




37 

&H25 

&X00100101 



-Trr+F 



41 

&H29 

&X00101001 





34 

&H22 

&X001 00010 




38 

&H26 

&X00100110 



TMBf 
■■■■■ 




42 

&H2A 

&X00101010 



m 



Fin 




35 

&H23 

&X00100G 

FFFBtfl 


1 


1 


:ijm 







































































39 

&H27 
&X001 001 1 1 



TT 




m 



43 

&H2B 

&X00101011 




32 &H2C 
&X001 00000 




36 

&H24 

&X00100100 



ISS 



40 

&H28 

&X00101000 



Hffl 



44 

&H2C 

&X00101100 




45 


46 


47 


48 


&H2D 


&H2E 


&H2F 


&H30 


&X00101101 


&X00101110 


&X00101111 


&X001 10000 
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49 

&H31 
4X001 10001 




J I fl% 



50 

&H32 

4X00110010 



51 

&H33 
&X001 10011 



■■MTbbb 

■flTr ■■■ 






■■T 
■■■■ 


■■■■■ 



52 

&H34 

&X00110100 




53 

&H35 

4X00110101 





54 

4H36 

4X00110110 



55 

4H37 

4X00110111 




56 

4H38 

4X00111000 




57 

4H39 

4X00111001 





r 




58 

4H3A 

4X00111010 



59 

4H3B 

4X00111011 



M 

ISii 



60 

4H3C 

4X00111100 




61 

4H3D 

4X00111101 



m 




62 

4H3E 

4X00111110 



63 

4H3F 

4X00111111 




64 

4H40 

4X01000000 



■i 


■■ 


■Bz 






■Hz 

■E 



SFFi 




■i 

■i 



■1KB 

.itri 



65 


66 


67 


68 


4H41 


4H42 


4H43 


4H44 


4X01000001 


4X01000010 


4X01000011 


4X01000100 
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5H 


^fff^ff" 


69 

&H45 

&X01000101 


-■■■Ul 

■E. 




■HI. 
■E. 

J ■■! 
■MUMI 


'= 



73 

&H49 
&X01 001001 



■ 



70 

&H46 

&X01000110 




74 

&H4A 

&X01001010 




71 

&H47 

&X01000111 




75 

&H4B 

&X01001011 




72 

&H48 

&X01001000 




76 

&H4C 

&X01001100 




77 

&H4D 

&X01001101 




78 

&H4E 

&X01001110 




79 

&H4F 

&X01001111 




80 

&H50 

&X01010000 



■VEpB 



81 

&H51 

&X01 010001 




82 

&H52 

&X01010010 




83 

&H53 

&X01010011 




84 

&H54 

&X01010100 







85 


86 


87 


88 


&H55 


&H56 


&H57 


&H58 


&X01010101 


&X01010110 


&X01010111 


&X01011000 
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I 



■■3- 



ES 



?! 



89 

&H59 

&X01011001 



90 

&H5A 

&X01011010 



91 

&H5B 

&X01011011 



92 

&H5C 

&X01011100 





ip_b— _ _ ■_ _ 

!■■■■■■■ 



I M IJ I I I I 



93 

&H5D 

&X01011101 



94 

&H5E 

&X01011110 



95 

&H5F 

&X01011111 



96 

&H60 
&X01 100000 



E 








J I PB 

nil 

I nm m 




97 

&H61 

&X01 100001 



98 

&H62 

&X01 100010 



99 

&H63 
&X01 100011 



100 

&H64 

&X01100100 



IN 1 1 Mi l F 






FiSH 



101 
&H65 
&X01 100101 



102 

&H66 

&X01100110 



103 

&H67 

&X01100111 



104 

&H68 

&X01101000 







105 


106 


107 


108 


&H69 


&H6A 


&H6B 


&H6C 


&X01 101001 


&X01101010 


&X01101011 


&X01101100 
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109 

&H6D 

&X01101101 




110 

&H6E 

&X01101110 




111 

&H6F 

&X01101111 




112 

&H70 

&X01110000 




113 
&H71 
&X01 110001 




114 

&H72 

&X01110010 



R 




i mnm 1 1 



115 

&H73 

&X01110011 



=EE 



Spi 



" "FlH l Sff" 



116 
&H74 
&X01 110100 




117 
&H75 
&X01 110101 




118 

&H76 

&X01110110 




119 

&H77 

&X01110111 




120 

&H78 

&X01111000 




121 
&H79 
&X011 11001 




122 

&H7A 

&X01111010 




123 

&H7B 

&X01111011 




124 

&H7C 

&X01111100 




125 

&H7D 

&X01111101 




126 


127 


128 


&H7E 


&H7F 


&H80 


&X01111110 


&X01111111 


&X1 0000000 
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129 

&H81 

&X1 0000001 



Si 



130 

&H82 

&X 10000010 




131 

&H83 

&X 10000011 



u 

132 
&H84 
&X 10000 100 




133 

&H85 

&X1 00001 01 




134 

&H86 

&X1 00001 10 



■■■■___: 


MrziZ 


■me 


■■■&- 



135 

&H87 

&X1 00001 11 




136 

&H88 

&X 10001 000 




137 

&H89 

&X1 0001 001 



■■■d 


-■■■■ 


■■« 




-_ ■■■■ 


__ _■■ 


■■■■ 


■■■■ 



138 

&H8A 

&X1 0001 010 






139 

&H8B 

&X10001011 




140 

&H8C 

&X10001100 




■■■■■■I 
■■■■■■■I 



141 

&H8D 

&X 10001 101 



FH+bm! 

■■■■■■■i 



IMMgMMBI 



142 

&H8E 

&X10001110 




143 

&H8F 

&X1 0001 111 



oil 



144 

&H90 

&X1 0010000 






_ _ — 

■E 

lit 



145 


146 


147 


148 


&H91 


&H92 


&H93 


&H94 


&X 1001 0001 


&X10010010 


&X1 001 0011 


&X10010100 
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149 

&H95 

4X10010101 




150 

&H96 

4X10010110 




151 

4H97 

4X10010111 



H 






152 

&H98 

&X1 001 1000 




153 

4H99 

4X10011001 




154 

&H9A 

4X10011010 




155 

4H9B 

4X10011011 



■■■■::_ 

en 



156 

4H9C 

4X10011100 




157 

4H9D 

4X10011101 




158 

4H9E 

4X10011110 




159 

4H9F 

-4X10011111 



■ Btm 



160 

4HA0 

4X10100000 




161 

4HA1 

4X10100001 



162 

4HA2 

4X10100010 



ess 



jfl 



u 



163 

4HA3 

4X10100011 




164 

4HA4 

4X10100100 



rmm 





^8^ 




165 


166 


167 


168 


4HA5 


4HA6 


4HA7 


4HA8 


4X10100101 


4X10100110 


4X10100111 


4X10101000 
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■ 



169 

&HA9 

&X10101001 




170 

&HAA 

&X10101010 




171 
&HAB 
&X101 01011 




172 

&HAC 

&X10101100 




173 

&HAD 

&X10101101 




174 

&HAE 

&X10101110 




175 

&HAF 

&X10101111 




176 

&HB0 

&X1 01 10000 




177 

&HB1 

&X1 01 10001 




178 

&HB2 

&X1 01 10010 




179 
&HB3 
&X101 10011 



_MIM 
—MWJJ 



180 

&HB4 

&X 101 10100 




181 

&HB5 

&X10110101 




182 

&HB6 

&X10110110 




183 

&HB7 

&X10110111 




184 

&HB8 

&X10111000 



iffl 



H 






185 


186 


187 


188 


&HB9 


&HBA 


&HBB 


&HBC 


&X10111001 


&X10111010 


&X10111011 


&X10111100 
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■■Blu" 

■■.■■IB 
■TK] 



■sgpfB 

■■n"B 





189 

&HBD 

&X10111101 



190 

&HBE 

&X10111110 



191 

&HBF 

&X10111111 



192 

&HC0 

&X 11 000000 





Frr«J~H- 




193 

&HC1 

&X1 1000001 



194 

&HC2 

&X1 1000010 



195 

&HC3 

&X1 1000011 



196 

&HC4 

&X110O0100 






IS 

::_■ 



197 

&HC5 

&X11000101 



198 

&HC6 

&X11000110 



199 

&HC7 

&X11000111 



200 

&HC8 

&X 11001000 







201 

&HC9 

&X1 1001 001 



202 

&HCA 

&X1 1001 010 



203 

&HCB 

&X1 1001 011 



204 

&HCC 

&X11001100 






Si 





205 


206 


207 


208 


&HCD 


&HCE 


&HCF 


&HD0 


&X11001101 


&X11001110 


&X11001111 


&X11010000 



Manual de Amstrad CPC 6 1 28 (revision 2008) - Pagina 278 



209 

&HD1 

&X1 1010001 



UIOUI 



210 

&HD2 

&X11010010 





211 

&HD3 

&X11010011 



212 

&HD4 

&X11010100 



■Ml 

SI 



213 

&HD5 

&X11010101 



::±B 

_J ■■■ 

■■■■■ 




214 

&HD6 

&X11010110 



■■■■■^__ 

■■■■■■_ 
■■■■■■■ 



215 

&HD7 

&X11010111 




216 

&HD8 

&X1 101 1000 




217 

&HD9 

&X11011001 



^ 





218 

&HDA 

&X11011010 



219 

&HDB 

&X11011011 



220 

&HDC 

&X11011100 




221 

&HDD 

&X11011101 






222 

&HDE 

&X11011110 




mm 

■iTTTii 

!■■■■■! 



223 

&HDF 

&X11011111 



224 

&HE0 

&X1 1100000 



!"■■■■■■ 

mm 




■■■■■■i 



frSsffl Hi 




rniir. ■■ 

■■■■■■■_ Ml 

HH 1 




225 


226 


227 


228 


&HE1 


&HE2 


&HE3 


&HE4 


&X1 1100001 


&X1 1100010 


&X1 11 00011 


&X11100100 
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ftt 



iuliiii 

IITI in 



i i i i i i i i 

229 

&HE5 

&X11100101 






230 

&HE6 

&X11100110 



231 

&HE7 

&X11100111 



232 

&HE8 

&X11101000 










233 

&HE9 

&X11101001 



234 

&HEA 

&X11101010 



235 

&HEB 

&X11101011 



236 

&HEC 

&X11101100 



■■■■ 
rmmm 




237 

&HED 

&X11101101 




238 

&HEE 

&X11101110 



SrSrw 

239 

&HEF 

&X11101111 



Tf 




240 

&HF0 

&X1 11 10000 



mm 







241 
&HF1 
&X11 110001 



242 

&HF2 

&X11110010 



243 

&HF3 

&X11110011 



244 

&HF4 

&X11110100 



FTWffl 





ITIIIII 
■■I 
■■I 

B 




245 


246 


247 


248 


&HF5 


&HF6 


&HF7 


&HF8 


&X11110101 


&X11110110 


&X11110111 


&X11111000 



Manual de Amstrad CPC 6 1 28 (revision 2008) - Pagina 280 







249 

&HF9 

&X1 11 11001 



250 

&HFA 

&X11111010 



251 

&HFB 

&X11111011 



252 

&HFC 

&X11111100 





■■fiM'j 



253 

&HFD 

&X11111101 



254 

&HFE 

&X11111110 



255 

&HFF 

&X11111111 
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Parte 5: Esquemas del teclado 

Valores ASCII implfcitos generados por las teclas (HEX) 



TJTJxnjTJTJTJTJxnjTJTJTJTJTJTJTJTJTJx^ 



N/D 


AF 7E 7B 7D IF IE 10 7F 
21 22 22 24 25 26 27 28 29 5F 3D A3 10 7F 
31 32 33 34 35 36 37 38 39 30 2D 5E 10 7F 


N/D 


N/D 


N/D 


El 11 17 05 12 14 19 

09 51 57 45 52 54 59 
09 71 77 65 72 74 79 


15 09 OF 10 00 IB 
55 49 4F 50 7C 2A 
75 69 6F 70 40 5B OD 


N/D 


N/D 


N/D 


,.,_ 01 13 04 06 07 OS 

N/D 41 53 44 46 47 48 

' 61 73 64 66 67 68 


OA OB OC ID OD 
4A 4B 4C Al 3A 2B 

6A 6B 6C AB 2B 5D 


N/D 


N/D 


N/D 


„,_ 1A 18 03 16 02 OE 0D AE IC „,_ 

N/D 5A £8 43 56 42 4E 4D 3C 3E 3F 60 N/D 
' 7A 78 63 76 62 6E 6D 2C 2E 2F 5C ' 


N/D 


F8 
F4 
FO 


N/D 


N/D § 


|° N/D 


FA 
F6 
F2 


F9 
F5 
Fl 


FB 
F7 
F3 



JOYSTICK O 



JOYSTICK 1 







OB 
OB 












08 

OS 


[31SP. 1 

58 
58 


DISP. Z 

5A 
5A 


09 
09 












OA 
OA 











26 
36 












52 
I ?2 


DISP. 1 
07 
47 
67 


OISP. ? ] 
06 
46 
66 


14 

54 
74 












25 

35 
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Codigos expansibles: posiciones y valores implicitos 



TJTJTJTJTJTJTJTJTJTJTJTJTJTJTJTJTJTJTJT^^ 



N/D N/D N/D N/D N/D N/D N/D N/D N/D N/D N/D N/D N/D N/D N/D 



N/D N/D N/D N/D N/D N/D N/D N/D N/D N/D N/D N/D N/D 



N/D N/D N/D N/D N/D N/D N/D N/D N/D N/D N/D N/D N/D 



L| N/D 



N/D 



N/D 



N/D 



N/D N/D N/D N/D N/D N/D N/D N/D N/D N/D N/D N/D 



N/D 



140 
139 
139 



135 
135 
135 



132 
132 
132 



129 
129 
129 



12S 

123 
123 



N/D 



136 
136 
136 



123 
133 
133 



130 
130 
130 



N/D 



N/D 



137 
137 
127 



134 
124 
134 



131 
1 :■ 1 
131 



12S 
138 
13S 



N/D 



Codigo 
expansible 


Asignacion implicita 


Caracter 


Valor ASCII 


0(128) 

1(129) 

2(130) 

3(131) 

4(132) 

5(133) 

6(134) 

7(135) 

8(136) 

9(137) 

10(138) 

11(139) 

12(140) 



1 

2 
3 
4 
5 
6 
7 
8 
9 

[RETURN] 
RUN"[RETURN] 


&30 
&3I 
&32 
&33 
&34 
&35 
&36 
&37 
&38 
&39 
&2E 
&0D 
&52&55&4E&22&0D 


Nota. Los caracteres expansibles 1 3 a 3 1 (141 a 1 59) no tienen asignada ninguna 
cadena de expansion. Su expansion se puede definir con la orden KEY de BASIC, 
y se los puede asignar a teclas concretas con la Orden KEY DEF. 
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Numeros de las teclasy los joysticks 



TJTJTJTJTJTJTJTJTJTJTJTJTJTJTJTJTJTJTJTJT^^ 



66 64 65 57 56 49 48 41 40 33 32 25 24 16 79 



68 67 59 58 50 51 43 42 35 34 27 26 17 



18 



21 



23 



70 69 60 61 53 52 44 45 37 36 29 28 19 



71 63 62 55 54 46 38 39 31 30 22 



47 



21 



10 



20 



13 



15 



11 






14 



JO/STICK O 



JOYSTICK 1 









72 


















74 




OISP. 1 
76 


DISP 1 

77 




75 


















73 















48 


















50 




CIS P. 1 
52 


DISP. 1 

S3 




51 


















49 
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Parte 6: Sonidos 
Notas y periodos de tono 

La tabla siguiente da los valores recomendados para el parametro <periodo de tono> 
correspondientes a los tonos y semitonos de las ocho octavas que puede producir el CPC664. 

Las frecuencias generadas no coinciden exactamente con las requeridas porque el <periodo de 
tono> tiene que ser un numero entero. El 'error relativo' es el cociente: 

frecuencia requerida-frecuencia generada 
frecuencia requerida 



expresado en porcentaje. 



NOTA 


FRECUENCIA 


PERIODO 


ERROR RELATIVO 


C DO 


16,352 


3822 


-0,007% 


C# DO# 


1 7,324 


3608 


0,007% 


D RE 


18,354 


3405 


-0,007% 


D# RE# 


1 9,445 


3214 


-0,004% 


E Ml 


20,602 


3034 


0,009% 


F FA 


2 1 ,827 


2863 


-0,016% 


F# FA# 


23,125 


2703 


0,009% Octava -4 


G SOL 


24,500 


2551 


-0,002% 


SOL 








G# # 


25,957 


2408 


0,005% 


A LA 


27,500 


2273 


0,012% 


A# LA# 


29,135 


2145 


-0,008% 


B SI 


30,868 


2025 


0,011% 


NOTA 


FRECUENCIA 


PERIODO 


ERROR RELATIVO 


C DO 


32,703 


1911 


-0,007% 


C# DO# 


34,648 


1804 


0,007% 


D RE 


36,708 


1703 


0,022% 


D# RE# 


38,891 


1607 


-0,004% 


E Ml 


41,203 


1517 


0,009% 


F FA 


43,654 


1432 


0,019% 


F# FA# 


46,249 


1351 


-0,028% Octava -3 


G SOL 


48,999 


1276 


0,037% 
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SOL 










G# # 


51,913 


1204 


0,005% 




A LA 


55,000 


1136 


-0,032% 




A# LA# 


58,270 


1073 


0,039% 




B SI 


61,735 


1012 


-0,038% 




NOTA 


FRECUENCIA 


PERIODO 


ERROR RELATIVO 




C DO 


65,406 


956 


0,046% 




C# DO# 


69,296 


902 


0,007% 




D RE 


73,416 


851 


-0,037% 




D# RE# 


77,782 


804 


0,058% 




E Ml 


82,407 


758 


-0,057% 




F FA 


87,307 


716 


0,019% 




F# FA# 


92,499 


676 


0,046% 


Octava -2 


G SOL 


97,999 


638 


0,037% 




SOL 










G# # 


103,826 


602 


0,005% 




A LA 


110,000 


568 


-0,032% 




A# LA# 


116,541 


536 


-0,054% 




B SI 


123,471 


506 


-0,038% 




NOTA 


FRECUENCIA 


PERIODO 


ERROR RELATIVO 




C DO 


130,813 


478 


0,046% 




C# DO# 


138,591 


451 


0,007% 




D RE 


146,832 


426 


0,081% 




D# RE# 


155,563 


402 


0,058% 




E Ml 


164,814 


379 


-0,057% 




F FA 


174,614 


358 


0,019% 




F# FA# 


184,997 


338 


0,046% 


Octava - 1 


G SOL 


195,998 


319 


0,037% 




SOL 










G# # 


207,652 


301 


0,005% 




A LA 


220,000 


284 


-0,032% 




A# LA# 


233,082 


268 


-0,054% 




B SI 


246,942 


253 


-0,038% 
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NOTA 


FRECUENCIA 


PERIODO 


ERROR RELATIVO 


C DO 


261,626 


239 


0,046% 


C# DO# 


277,183 


225 


-0,214% 


D RE 


293,665 


213 


0,081% 


D# RE# 


311,127 


201 


0,058% 


E Ml 


329,628 


190 


0,207% 


F FA 


349,228 


179 


0,019% 


F# FA# 


369,994 


169 


0,046% 


G SOL 


391,995 


159 


-0,276% 


SOL 








G# # 


415,305 


150 


-0,327% 


A LA 


440,000 


142 


-0,032% 


A# LA# 


466,164 


134 


-0,054% 


B SI 


493,883 


127 


0,357% 


NOTA 


FRECUENCIA 


PERIODO 


ERROR RELATIVO 


C DO 


523,251 


119 


-0,373% 


C# DO# 


554,365 


113 


0,229% 


D RE 


587,330 


106 


-0,389% 


D# RE# 


622,254 


100 


-0,439% 


E Ml 


659,255 


95 


0,207% 


F FA 


698,456 


89 


-0,540% 


F# FA# 


739,989 


84 


-0,545% 


G SOL 


783,991 


80 


0,351% 


SOL 








G# # 


830,609 


75 


-0,327% 


A LA 


880,000 


71 


-0,032% 


A# LA# 


932,328 


67 


-0,054% 


B SI 


987,767 


63 


-0,433% 


NOTA 


FRECUENCIA 


PERIODO 


ERROR RELATIVO 


C DO 


1046,502 


60 


0,464% 


C# DO# 


1108,731 


56 


-0,658% 


D RE 


1 1 74,659 


53 


-0,389% 


D# RE# 


1 244,508 


50 


-0,439% 


E Ml 


1318,510 


47 


-0,848% 



Octava 



Octava I 
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F FA 


1396,913 


45 


0,578% 


F# FA# 


1479,978 


42 


-0,545% 


G SOL 


1 567,982 


40 


0,351% 


SOL 








G# # 


1661,219 


38 


1 ,002% 


A LA 


1 760,000 


36 


1 ,376% 


A# LA# 


1864,655 


34 


1 ,437% 


B SI 


1975,533 


32 


1,147% 


NOTA 


FRECUENCIA 


PERIODO 


ERROR RELATIVO 


C DO 


2093,005 


30 


0,464% 


C# DO# 


2217,461 


28 


-0,658% 


D RE 


2349,318 


27 


1,491% 


D# RE# 


2489,016 


25 


-0,439% 


E Ml 


2637,020 


24 


1 ,262% 


F FA 


2793,826 


22 


-1,657% 


F# FA# 


2959,955 


21 


-0,545% 


G SOL 


3135,963 


20 


0,351% 


SOL 








G# # 


3322,438 


19 


1 ,002% 


A LA 


3520,000 


18 


1 ,376% 


A# LA# 


3729,310 


17 


1 ,437% 


B SI 


3951,066 


16 


1,147% 



Octava 2 



Octava 3 



Estas frecuencias han sido calculadas a partir de la correspondiente a la nota LA internacional 
mediante la siguiente formula: 

FRECUENCIA=440*(2~(OCTAVA+((N-I0)/I2))) 
PERIODO=ROUND(62500/FRECUENCIA) 

donde N es I para DO, 2 para DO#, etc. 
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Parte 7: Mensajes de error de BASIC 

1 Unexpected NEXT 

Se ha encontrado un NEXT que no corresponde a ningun FOR, o bien la variable mencionada 
tras NEXT no coincide con la de FOR. 

2 Syntax error 

BASIC no puede entender la Ifnea porque algo en ella no se ajusta a las reglas de sintaxis del 
lenguaje. 

3 Unexpected RETURN 

Si ha encontrado una orden RETURN fuera de una subrutina. 

4 DATA exhausted 

Una orden READ ha intentado leer mas datos de los incluidos en Ifneas DATA. 

5 Improper argument 

Este es un error no especffico. Puede haber algo incorrecto en el argumento de una funcion o en 
un parametro de una orden. 

6 Overflow 

El resultado de una operacion aritmetica ha sobrepasado los margenes aceptables. Si ha ocurrido 
en un numero en punto flotante, el resultado ha sido mayor que I.7E + 38 (aprox.). Tambien 
puede haber ocurrido al intentar convertir un numero en punto flotante en un entero con signo 
de 1 6 bits. 

7 Memory ful I 

El programa actual o sus variables ocupan demasiado espacio en la memoria, el anida-miento de 
la estructura de control es demasiado profundo (demasiadas ordenes GOSUB, WHILE o FOR 
anidadas). 

La orden MEMORY provoca este error si se intenta situar el Ifmite de la memoria accesible a 
BASIC demasiado bajo, o tan alto que sea imposible. Observese que los ficheros abiertos tienen 
un tampon dedicado a ellos, lo que puede restringir los valores correctos de MEMORY. 

8 Line does not exist 

Se ha mencionado un numero de Ifnea que no existe en el programa. 

9 Subscript out of range 

Uno de los subfndices mencionados en una lista es demasiado pequeho o demasiado grande. 

1 Array already dimensioned 

Una de las listas declaradas en una orden DIM ya ha sido dimensionada antes. 

1 1 Division by zero 

Division por cero, que puede ocurrir en la division de numeros reales, en la division entera, en la 
operacion MOD y en la exponenciacion. 

12 Invalid direct command 

Se ha intentado dar como orden directa una orden que solo es valida si va precedida de un 
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numero de Ifnea. 

1 3 Type mismatch 

Incongruencia de tipos. Un dato es literal cuando tenfa que ser numerico, o viceversa, o se ha 
introducido un dato no numerico en READ o INPUT. 

14 String space full 

Se han creado demasiadas cadenas literales y ya no hay espacio disponible para mas, incluso 
despues de reorganizar la memoria. 

1 5 String too long 

Una cadena literal consta de mas de 255 caracteres. Puede haber sido generada por 
concatenacion de otras. 

1 6 String expression too complex 

Expresion literal demasiado compleja. Las expresiones literales pueden generar valores 
intermedios; cuando el numero de estos valores excede de un limite razonable, se produce este 
error. 

1 7 Cannot CONTinue 

No se puede reanudar la ejecucion del programa con CONT. Observese que CONT reanuda el 
programa despues de una instruccion STOP, de [ESC] [ESQ o de un error, pero a condicion de 
que no se modifique el programa durante la pausa. 

18 Unknown user function 

Se ha invocado una FN sin la correspondiente DEF FN. 

19 RESUME missing 

Se ha llegado al final del programa mientras se ejecutaba una rutina de gestion de errores (esto 
es, una rutina invocada por ON ERROR GOTO). 

20 Unexpected RESUME 

RESUME solo es valida en una rutina de gestion de errores (esto es, en una rutina invocada por 
ON ERROR GOTO). 

2 1 Direct command found 

Al cargar un fichero se ha encontrado una Ifnea sin numero de Ifnea. 

22 Operand missing 

BASIC ha encontrado una expresion incompleta. 

23 Line too long 

BASIC ha convertido a su forma interna una Ifnea y esta ha resultado ser demasiado larga. 

24 EOF met 

Se ha intentado leer mas alia del final del fichero de entrada. 

25 File type error 

El fichero que se ha lefdo no es del tipo adecuado. OPENIN solo puede abrir ficheros de texto 
ASCII. Analogamente, LOAD, RUN, etc., solamente pueden acceder a ficheros creados por 
SAVE. 

26 NEXT missing 
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BASIC ha encontrado un FOR al que no corresponde ningun NEXT. La Ifnea mencionada tras el 
mensaje es aquella en la que se encuentra el FOR. 

27 File already open 

Se ha ejecutado una orden OPENIN u OPENOUT sin previamente cerrar el fichero que estaba 
abierto. 

28 Unknown command 

BASIC no encuentra un comando externo que corresponda a lo que se ha escrito tras | . 

29 WEND missing 

BASIC ha encontrado un WHILE al que no corresponde ningun WEND. 

30 Unexpected WEND 

Se ha encontrado un WEND que no corresponde a ningun WHILE, o bien el WEND no 
concuerda con el WHILE del bucle actual. 

3 1 File not open 

Vease la seccion 'Errores de disco'. 

32 Broken in 

Vease la seccion 'Errores de disco'. 

Errores de disco en AMSDOS 

Hay varios errores que pueden producirse con ocasion del manejo de ficheros en disco. BASIC 
da a todos ellos el numero de ERR 32; no obstante, DERR contiene informacion mas especffica 
cuando se detecta ese numero de error. Los valores de DERRtienen el siguiente significado: 



Error de 
AMSDOS Valor de DERR 






0o22 


14 


142(128+14) 


15 


143(128+15) 


16 


144(128+16) 


17 


145(128+17) 


18 


146(128+18) 


19 


147(128+19) 


20 


148(128+20) 


21 


149(128+21) 


22 


150(128+22) 


26 


154(128+26) 



Causa del error 

Se ha pulsado [ESC]. 

El canal no se encuentra en situacion correcta. 

Se ha alcanzado el final fisico del fichero. 

Orden incorrecta: generalmente nombre de fichero 
incorrecto. 

El fichero ya existe. 

El fichero no existe. 

El directorio esta lleno. 

El disco esta lleno. 

Se ha cambiado el disco cuando habia ficheros abiertos en 
el. 

El fichero es de 'solo lectura'. 

Se ha llegado al final de los datos grabados en el fichero 
(final logico del fichero). 



Si AMSDOS ya ha informado de un error, el bit 7 de DERR esta a I y por lo tanto todos los 
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valores de DERR estan desplazados en 1 28 unidades. 

Otros valores generados por DERR proceden del controlador del disco. Su significado se analiza 
bit a bit. El bit 6 Siempre esta a I . El bit 7 indica si AMSDOS ha informado del error (segun se ha 
explicado antes). El significado de los bits es el siguiente: 



Bit 


Significado 





Falta marca de direcciones. 


1 


No escribible. El disco esta protegido. 


2 


Faltan datos. No se puede encontrar el sector. 


3 


No hay disco en la unidad, unidad no preparada. 


4 


Error de sincronizacion (velocidad). 


5 


Error de datos. Error CRC (comprobacion de redundancia cfclica). 


6 


Siempre a 1 , para indicar que es un error detectado por el controlador del 
disco. 


7 


A 1 si AMSDOS ya ha informado del error. 



ERR tambien puede dar el valor 31 si se ha intentado el acceso sin haber ningun fichero abierto. 
La forma recomendable de utilizar ERR y DERR consiste en incluir una instruccion ON ERROR 
GOTO que invoque una pequeha subrutina en la cual se compruebe si ERR es 3 I o 32; si es 32, 
se puede examinar DERR para obtener mayor informacion sobre la naturaleza del error. Por 
ejemplo: 



10 ON ERROR GOTO 1000 

20 0PEN0UT "fichero. asc" 

30 WRITE #9,"prueba-datos" 

40 CL0SE0UT 

50 END 

1000 erramsdos=(DERR AND &7F): REM mascara para bit 7 

1010 IF ERR<31 THEN END 

1020 IF ERR=31 THEN PRINT "Esta seguro de que ha tecleado la linea 20 

correctamente?" :END 
1030 IF erramsdos=20 THEN PRINT "Disco lleno; ponga otro disco de datos.": END 
1040 IF erramsdos=&X01001000 THEN PRINT "Inserte un disco en la unidad y luego 

pulse una tecla. " :WHILE INKEY$="" :WEND: RESUME 
1050 END 
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Parte 8: Palabras reservadas de BASIC 

A continuacion damos la lista de las palabras reservadas para el BASIC de AMSTRAD CPC6 1 28, 
las cuales, por consiguiente, no pueden ser utilizadas como nombres de variables. 

ABS, AFTER, AND, ASC, ATN, AUTO 

BIN$, BORDER 

CALL, CAT, CHAIN, CHR$, CINT, CLEAR, CLG, CLOSEIN, CLOSEOUT, CLS, CONT, 
COPYCHR$, COS, CREAL, CURSOR 

DATA, DEC$, DEF, DEFINT, DEFREAL, DEFSTR, DEG, DELETE, DERR, Dl, DIM, DRAW, 
DRAWR 

EDIT, El , ELSE, END, ENT, ENV, EOF, ERASE, ERL, ERR, ERROR, EVERY, EXP 

FILL, FIX, FN, FOR, FRAME, FRE 

GOSUB, GOTO, GRAPHICS 

HEX$, HIMEM 

IF, INK, INKEY, INKEY$, INP, INPUT, INSTR, INT 

JOY 

KEY 

LEFT$, LEN, LET, LINE, LIST, LOAD, LOCATE, LOG, LOG 10, LOWERS 

MASK, MAX, MEMORY, MERGE, MID$, MIN, MOD, MODE, MOVE, MOVER 

NEXT, NEW, NOT 

ON, ON BREAK, ON ERROR GOTO O, ON SO, OPENIN, OPENOUT, OR, ORIGIN, OUT 

PAPER, PEEK, PEN, PI, PLOT, PLOTR, POKE, POS, PRINT 

RAD, RAMDOMIZE, READ, RELEASE, REM, REMAIN, RENUM, RESTORE, RESUME, 
RETURN, RIGHTS, RND, ROUND, RUN 

SAVE, SGN, SIN, SOUND, SPACES, SPC, SPEED, SQ, SOR, STEP, STOP, STR$, STRINGS, 
SWAP, SYMBOL 

TAB, TAG, TAGOFF, TAN, TEST, TESTR, THEN, TIME, TO, TROFF, TRON 

UNT, UPPERS, USING 

VAL, VPOS 

WAIT, WEND, WHILE, WIDTH, WINDOW, WRITE 

XOR, XPOS 

YPOS 

ZONE 
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Parte 9: Plantillas 

Pantalla de texto; modo (20 columnas) 



Manual de Amstrad CPC 6 1 28 (revision 2008) - Pagina 294 



Pantalla de texto; modo 1 (40 columnas) 
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Pantalla de texto; modo 2 (80 columnas) 



Nota del revisor (2008): Estas plantillas se han generado directamente desde el CPC, con el 
siguiente programa en BASIC: 



5 BORDER 26: INK 0,26: INK 1, 

10 INPUT "Modo de pantalla (0 a 2)";modo 

20 IF modo<0 OR modo>2 THEN PRINT "Incorrecto! ":END 

30 SYMBOL 255, 255,128,128,128,128,128,128,128 

40 DIM columnas (2) 

50 col umnas (0) =20 : col umnas (1) =40 : col umnas (2) =80 

60 MODE modo 

70 FOR fila = 1 TO 25 

80 FOR columna = 1 TO col umnas (modo) 

90 LOCATE columna, fila 

100 PRINT CHR$(255); 

110 NEXT columna 

120 NEXT fila 

130 MOVE 0,0:DRAW 639,0:DRAW 639,399 

140 CALL &BB18 



Manual de Amstrad CPC 6 1 28 (revision 2008) - Pagina 296 



Envolventes de sonido/musica 
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Parte 10: Conexiones 



Zocalos de entradasy salidas del CPC6128 



5vCC 




lllllllllllllllllllllllllllllllllll 



5EGUNDA UNIDAD 



MONITOR 



>AD DISCO / m 



12vCC 



3— 5 



t t 



IMPRESORA 



EXPANSION 



pot 



JSL 



t t t 



CINTA 



ESTEREO 



JOYSTICK 



Zocalo del joystick 



VISTO POR DETRAS 












Zocalo del monitor 



Patilla 1 ARRIBA 


Patilla 6 DtSPARO 2 


Patllla 2 ABAJO 


Patilla 7 DtSPARO 1 


Patilla 3 IZQUIERDA 


Patilla 8 MASA 2 


Patifla 4 DERECHA 


Patilla 9 MASA 


Patilla 5 N/C 





VISTO POR DETRAS 



S 1 
6 




*3 2 



Patilla 1 ROJO 
Patilla 2 VERDE 
Patilla 3 AZUL 



Patilla 4 SINC 
Patilla 5 MASA 
Patilla 6 LUM 
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Zocalo estereo 



DERECHO 




IZOUIERDO 

DEBECHO 
MASA 



Patilla 1 CANAL IZQUIERDO 
Patilla 2 CANAL DERECHO 
Patilla 3 MASA 



Zocalo de cinta 



VISTO POR DETRAS 




Patilla 1 CONTROL REMOTO 

Patilla 2 MASA 

Patilla 3 CONTROL REMOTO 



Patilla 4 ENTRADA DE DATOS 
Patilla 5 SALIDA DE DATOS 
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Zocalo de expansion 



VISTO POR DETRAS 
4t 47 45 49 41 39 37 35 33 31 2B 27 29 21 21 19 17 19 13 11 t 7 5 3 1 



^e; 



42 40»3<343230aa»2412» 18 IB 14 12 10 ■ « 4 2 



• 
Patilla 1 SONIDO 


Patilla 18 A0 


PatiUa 35 INT 


Patilla 2 MASA 


PatiUa 19 D7 


Patilla 36 NMI 


Patilla 3 AI5 


Patilla 20 D6 


Patilla 37 BUSR2 


PatiUa 4 A14 


Patilla 21 DJ 


PatiUa 38 BUSAK 


Patilla 5 A13 


Patilla 22 D4 


Patilla 39 READY 


Patilla 6 A12 


Patilla 23 D3 


Patilla 40 BUS RESIT 


Patilla 7 All 


Patilla 24 D2 


Patilla 41 RESET 


Patilla 8 A 10 


Patilla 25 Dl 


PatiUa 42 ROM EN 


Patilla 9 A9 


Patilla 26 DO 


Patilla 43 ROMD1S 


Patilla 10 AS 


Patilla 27 +5v 


Patilla 44 RAMRD 


Patilla 11 A7 


Patilla 28 MREQ 


PatiUa 45 RAMDIS 


Patilla 12 A6 


Patilla 29 MI 


Patilla 46 CURSOR 


Patilla 13 A5 


Patilla 30 RFSH 


Patilla 47 LAP1Z OPTICO 


Patilla 14 A4 


Patilla 31 IORQ 


PatiUa 48 EKF 


Patilla 15 A3 


Patilla 32 RD 


Patilla 49 MASA 


Patilla 16 A2 


Patilla 33 WR 


PatiUa 50 


Patilla IT Al 


PatiUa 34 HALT 





Zocalo para la segunda unidad de disco 



VISTO POR DETRAS 



2 


4 B 


8 10 


12 


14 


tS IB 


20 22 


24 


26 


28 


30 


32 34 


- 'i 


ji — n — 


I1__J1 It 




ii 


■n n TT 


— ii i 


., 


■ 


ii i 


■ 'r 


^J 



1 3 6 7 9 11 13 15 17 19 21 23 25 27 29 31 33 





Patilla 18 MASA 


PatiUa 1 READY 
Patilla 2 MASA 


PatiUa 19 MOTOR ON 


Patilla 3 SIDE 1 SELECT 


PatiUa 20 MASA 


Patilla 4 MASA 


Patilla 21 N/C 


PatiUa 5 READ data 
PaLiliH 6 MASA 


Patilla 22 MASA 


PatiUa 23 DRIVE SELECT! 


Patilla 7 WRITE PROTECT 


PatUla 24 MASA 


Patilla « MASA 


PatiUa 25 N/C 


Patilla 9 TRACK O 


PatUla 26 MASA 


Patilla 10 MASA 


PatUla 27 INDEX 


Patilla 1 1 WRITE GATE 


PatiUa 28 MASA 


Patilla 12 MASA 


Patilla 29 N/C 


Patilla 13 WRITE DATA 


Patilla 30 MASA 


Patilla 14 MASA 


PatiUa 31 N/C 


Patilla 15 STEP 


PatUla 32 MASA 


Patilla 16 MASA 


Patilla 33 N/C 
Patilla 34 MASA 


Patilla 17 DIRECTION SELECT 
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Zocalopara la impresora 



VISTO POR DETRAS 



17 It IS 14 13 11 H 10 B 9 7 6 6 4 Z 1 1 






isKttsiisgas^xsziaSii 20 19 





Patilla 19 MASA 


Patilla 1 STROBE 


Patilla 2 DO 


Patilla 20 MASA 


Patilla 3 Dl 


Patilla 21 MASA 


Patilla 4 D2 


Patilla 22 MASA 


Patilla 5 D3 


Patilla 23 MASA 


Patilla 6 D4 


Patilla 24 MASA 


Patilla 7 D5 


Patilla 25 MASA 


Patilla 8 D6 


Patilla 26 MASA 


Patilla 9 


Patilla 27 MASA 


Patilla 11 BUSY 


Patilla 28 MASA 


Patilla 14 MASA 


Patilla 33 MASA 


PatiUa 16 MASA 


Todas las demas: N/C 
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Parte 10: Impresoras 
Interfaz 

Al CPC6I28 se le puede conectar cualquier impresora que tenga 'interfaz paralelo tipo 
'Centronics' de 7 bits. 

El cable es facil de construir, pues no tiene que realizar mas que una conexion biunivoca entre el 
zocalo IMPRESORA del ordenador y el conector de la impresora. Notese que en la salida del 
ordenador hay dos terminates menos que en el conector de la impresora, con objeto de permitir 
la utilizacion de un conector estandar para circuito impreso. 

Los detalles de las patillas del interfaz estan ilustrados en la parte 9 de este capftulo. 

El cable debe conectar el terminal I del ordenador con el I de la impresora, el 1 9 del ordenador 
con el 1 9 de la impresora, etc. Sin embargo, los terminales 1 8 y 36 de la impresora no deben ser 
conectados al ordenador. Observese que aunque los terminales de la fila superior del zocalo 
IMPRESORA del ordenador estan numerados del I al 17, la numeracion de la fila inferior 
empieza en el 19, no en el 18, para mantener la correspondencia con el conector de la 
impresora. 

El ordenador utiliza la sehal BUSY (patilla I I) para sincronizar con la impresora y espera cuando 
esta esta en OFF-LINE (fuera de Ifnea). 

No es necesario enviar a la impresora codigos de preparacion; la salida del ordenador se dirige a 
la impresora especificando el canal #8. 

La salida PRINTER esta disehada para conectar impresoras de matriz de puntos de bajo costo. 
No obstante, con el interfaz adecuado, se le pueden conectar impresoras de margarita, plotters 
e impresoras de color por chorro de tinta. La compatibilidad esta asegurada por el interfaz 
paralelo. 

La programacion incorporada a la impresora AMSTRAD DMPI facilita el funcionamiento en 
modo grafico asf como los volcados de pantalla. 

Configuration de la impresora 

Se ha incluido una funcion que permite que los caracteres que aparecen en la pantalla y pueden 
ser generados por la AMSTRAD DMPI se escriban en el papel tal como se los ve en la pantalla, 
aun cuando los codigos que tienen en el ordenador no coincidan con los que tienen en la 
impresora. La mayor parte de estos signos solo esta disponible cuando en la impresora se ha 
seleccionado un idioma distinto del ingles. Por ejemplo: 



PRINT CHR$(&A0) 

A (en la pantalla) 

PRINT #8,CHR$(&A0) 

A (tambien en la impresora) 

Esto ocurre asf a pesar de que el codigo del acento circunflejo en la impresora es &5E. Dicho de 
otra forma, la programacion de la impresora ha reconocido el &A0 como uno de los codigos que 
tiene en su tabla de traduccion y lo ha convertido en &5E para escribirlo con la misma forma que 
en la pantalla. El codigo &5E produce el acento circunflejo cualquiera que sea el idioma 
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seleccionado (no se puede decir lo mismo de los demas codigos que hay en la tabla de 
traduccion). Los restantes caracteres de la tabla son los siguientes: 



CHR$ 


Caracter 
en la 
pantalla 


Traduccion 
en la 
impresora 


Signo escrito en el papel 


Reino 
Unido 


EE.UU. 


Francia 


Alemania 


Espaha 


&A0 


s\ 


&5E 


s\ 


s\ 


s\ 


s\ 


s\ 


&A2 




&7B 


t 


t 


t 


t 




&A3 


Pt 


&23 


£ 


# 


# 


# 


Pt 


&A6 


§ 


&40 


t 


t 


t 


§ 


t 


&AE 


i 


&5D 


t 


t 


t 


t 


i 


&AF 


i 


&5B 


t 


t 


t 


t 


i 



t Vease la pagina 1 8 del manual de la DMP I . 



La tabla anterior es un extracto de las traducciones implfcitas, que se pueden modificar a 
voluntad. Vease el manual del firmware (SOFT 968) para mas detalles. 
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Parte 12: Joysticks 

El ordenador puede funcionar con uno o dos joysticks. La maquina los considera como parte del 
teclado, y por consiguiente su estado se puede determinar con IN KEY e INKEY$. 

Notese que en la mayor parte de los casos, el boton principal de disparo del joystick es 
interpretado como 'DISP.2' por el CPC6 1 28. 

Las funciones JOY(O) y JOY(I) permiten inspeccionar directamente los dos joysticks. Cada una 
de estas funciones genera un resultado, interpretable bit a bit, que informa de la situacion de los 
interruptores del joystick en el momento en que se realizo la ultima comprobacion del teclado. 

La tabla siguiente indica los valores generados por los dos joysticks. Ademas de los numeros de 
la funcion JOY, se incluyen los numeros que se deben utilizar en instrucciones que llevan como 
parametro los numeros de las teclas (tales como INKEYy KEY DEF). 



Estado 


Funcion JOY 


Numeros de tecia 


Bit que esta 
a 1 


Valor 
generado 


Primer 
joystick 


Segundo 
joystick 


Tecia 
equivalente 


Arriba 





1 


72 


48 


'6' 


Abajo 


1 


2 


73 


49 


'5' 


Izquierda 


2 


4 


74 


50 


'R' 


Derecha 


3 


8 


75 


51 


T 


Disparo 2 


4 


16 


76 


52 


'G' 


Disparo 1 


5 


32 


77 


53 


'F* 



Notese que cuando se generan los valores correspondientes al segundo joystick, el ordenador 
no puede saber si esos valores han sido generados por el joystick o por las teclas equivalentes 
(ultima columna de la tabla anterior). Esto representa que se puede utilizar el teclado como 
sustituto del segundo joystick. 
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Parte 13: Organization de los discos 

El BIOS maneja tres formatos de disco diferentes: formato SISTEMA, formato SOLO DATOS y 
formato IBM. AMSDOS detecta automaticamente el formato cada vez que accede a un disco en 
el que no haya ficheros abiertos. Para permitir esta deteccion automatica, en cada formato los 
sectores se numeran de forma diferente. 

Los discos de 3 pulgadas tienen dos caras utilizables, aunque no al mismo tiempo. Cada cara 
puede haber sido inicializada con un formato distinto. 

Comun a todos los formatos: 

Una sola cara (las dos caras del disco de 3 pulgadas se tratan por separado). 

• Capacidad fisica de cada sector: 5 1 2 bytes. 

• 40 pistas, numeradas del al 39. 

• Tamano de bloque de CP/M: 1024 bytes. 

• Directorio de 64 resenas. 



Formato SISTEMA 

• 9 sectores por pista, numerados del &4 1 al &49. 

• 2 pistas reservadas. 

Es el formato principal, ya que CP/M solo puede ser cargado con un disco que tenga este 
formato. CP/M 2.2 exige ademas que se inserte en la unidad un disco con formato de sistema 
para los arranques iniciales. Las pistas reservadas se utilizan de la siguiente forma: 





CP/M 2.2 


CP/M Plus 


Pista sector &4 1 


sector de carga automatica 


Sector de carga automatica 
para CP/M Plus 


Pista sector &42 


sector de configuracion 


no utilizadas 


Pista sectores &43 a &47 


no utilizadas 


Pista sectores &48 a &49 


CPC y BDOS 


Pista 1 sectores &4 1 a &49 



Notese que el formato COMERCIAL es una version especial del formato SISTEMA en la que no 
se graban las pistas reservadas. Este es el formato en que se graban los programas que se 
venden en el comercio. 

Formato SOLO DATOS 

• 9 sectores por pista numerados del &CI al &C9. 

• Ninguna pista reservada. 
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Este formato esta disenado para su desarrollo en el future No se recomienda utilizarlo con CP/ 
M 2.2, pues no permite cargar el sistema operative No obstante, si solo se va a utilizar el disco 
con AMSDOS O CP/M Plus, se lo puede inicializar con este formato para disponer de mas 
espacio. 



Formato IBM (solo en CP/M 2.2) 

• 8 sectores numerados del &l al &8. 

• I pista reservada. 



Este formato coincide con el formato de una sola cara utilizado por el CP/M del IBM PC. El 6 1 28 
puede leer y escribir en discos de este formato, pero no puede crearlos ni copiarlos. 
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Parte 14: Ampliaciones del sistema residentes (RSX) 

En el capftulo 5, al hablar de AMSDOS, ya hemos mencionado las 'ordenes externas'. En esencia, 
una orden externa es una forma de ampliar el repertorio de BASIC anadiendole instrucciones 
nuevas, todas las cuales van precedidas del signo . Las rutinas que llevan a cabo las acciones de 
las ordenes externas de AMSDOS estan grabadas en la ROM; el ordenador realiza todas las 
operaciones necesarias para hacer accesibles estas ordenes cuando entra en BASIC. 

Pero tambien es posible incorporar nuevas ordenes externas (cuando BASIC esta ya activo) 
cargando las instrucciones de codigo de maquina adecuadas en la RAM. Tales ordenes externas 
son las 'ampliaciones del sistema residentes' (RSX) y actuan exactamente igual que las basadas en 
la ROM. Las RSX han de ser cargadas desde el disco (o la cinta) cada vez que se entra en BASIC. 
La aplicacion habitual de la RSX es el control de perifericos 'inteligentes', tales como lapiceros 
opticos o sintetizadores de voz. 

En el capftulo 8 se explica como utilizar las RSX para acceder al segundo banco de 64K de 
memoria del 6 1 28. 
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Parte 15: Memoria 

El CPC6 1 28 dispone de 1 28K de RAM y 48K de ROM. Esta memoria es utilizable por BASIC I . I 
segun se indica en la figura siguiente. El primer banco de 64K de RAM esta dividido 
nominalmente en cuatro bloques (de I6K cada uno), numerados del al 3. La pantalla utiliza el 
bloque 3; la zona superior del bloque 2 esta dedicada a las variables de sistema, segun se 
muestra en la figura. 



e LOQ, 



'UEj , 



a Loa u 



Ei J 



Bl -°QU E f 



B LCtQU; 



Eo J 



PRIMER BANCO 
DE B4K DE HAM 



h 'Mem T - d ^ 



Us <*S5fc : 



$40*0 



SEGUNDO BANCO 
DE64K DE RAM 




AHEA DATOS FIRMWARE 
l BLOQUE D€ SALTOS 

AREA DATOS BAShC 
I AREA DATOS HOW DISCO 
, AREA DATOS OTfiAS BOM 



Y AREA PARA PROGRAM A DE BASIC 




ROM 



t>F_ 



basic 



«Qm 



Df 



D 'Sco 




Noo 1. Depande de las flOM externa; conectadas. Es &A6FC cuancJo no hay ninguna 

Mapa de memoria para BASIC I . I 



Los caracteres definidos por el usuario estan inicialmente inmediatamente por encima de 
HIMEM. Este valor se puede modificar mediante una orden MEMORY; ademas se reduce en 4K 
automaticamente para crear un tampon cada vez que se abre un fichero. El numero de 
caracteres definibles por el usuario (controlado por la orden SYMBOL AFTER de BASIC) solo se 
puede modificar si HIMEM no ha variado desde la ultima vez que aquel fue establecido (o si en 
esa ocasion se establecio en cero, con SYMBOL AFTER 256). Cuando se entra en BASIC, el 
numero de caracteres definibles por el usuario se establece como si se hubiera ejecutado la 
orden SYMBOL AFTER 240. 

Por consiguiente, antes de cambiar permanentemente HIMEM, es prudente reducir a cero la 
zona de memoria dedicada a los caracteres definibles; despues se modifica HIMEM y finalmente 
se restablece la zona de caracteres definibles al tamaho deseado. De esta manera los siguientes 
programas podran ejecutar nuevas ordenes SYMBOL AFTER sin problemas. 

El siguiente ejemplo ilustra este metodo, aplicado a la carga de una RSX: 

100 SYMBOL AFTER 256 ' anular memoria para caracteres definibles por el 

usuario 
110 direccionrsx=HIMEM-longitudrsx 
120 MEMORY di reccionrsx-1 
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130 LOAD "codigorsx",direccionrsx 

140 CALL direccionrsx ' inicializar rsx 

150 SYMBOL AFTER 140 ' restablecer espacio para caracteres definibles 








AREA DATOS FIRMWARE 
BLOOUE BE SALTOS 
AREA OATOS BASIC 
ARFA OATOS ROM DISCO 
AREA OATOS OTRAS ROM 



Mapa de rnemoria con las RSX cargadas en ia posicion recomendada 



Otras entradasy Salidas 

La mayor parte de las direcciones de puertas de entrada/salida (E/ S) esta reservada por el 
ordenador. En particular, las direcciones inferiores a &7FFF no se deben utilizar nunca. 

Esta previsto que la parte de la direccion representada por A0-A7 refleje el tipo de dispositivo 
externo de E/S, y que las lineas de direccion A8 y A9 puedan ser decodificadas para seleccionar 
registros dentro del dispositivo de E/S. De las restantes Ifneas, solo AIO puede ser decodificada 
(a nivel 'bajo'); las Ifneas Al I a AI5 estan todas a nivel 'alto'. Asf, los registros de los dispositivos 
se pueden direccionar como &F8??, &F9??, &FA?? y &FB??, donde ?? puede estar entre DC y FF 
para los interfaces de comunicacion y entre EO y FE para otros perifericos. 

Notese que se deben utilizar instrucciones del Z80 que pongan el registro B en la mitad superior 
del bus de direcciones (A 1 5-A8). 

Memorias ROM adicionales 

El sistema operativo esta preparado para seleccionar ROMs adicionales en lugar de parte de la 
ROM interna. La logica de gestion de direcciones y de seleccion de bancos estara en un modulo 
conectado al bus de expansion, pero todas las senales necesarias estan en el corrector de 
expansion. 
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Parte 16: Emulador de consola de CP/MPlus 

En la parte I de este capftulo hemos dado una tabla de caracteres de control con la descripcion 
de sus efectos. Tales efectos son los que se producen cuando se envfan los caracteres a la 
pantalla de texto desde BASIC o desde CP/M 2.2. Estas acciones han sido elegidas con los 
criterios de sencillez y de conseguir que ilustren algunas de las funciones disponibles en el bloque 
de 'Text VDU' (pantalla de texto) del firmware. Estas funciones son peculiares de los 
ordenadores Amstrad, y por lo tanto los programas deben ser amoldados a ellas. 

En el contexto de las aplicaciones comerciales que se programan para CP/M Plus, es normal 
esperar que los ordenadores dispongan de ciertas funciones estandar de control de la pantalla de 
texto, de modo que los programas sean facilmente "trasladables" de una maquina a otra. La 
implementacion de CP/M Plus en el CPC6 1 28 incluye un emulador de consola que proporciona 
funciones de control similares a las del terminal Zenith Zl 9/Z29. El procedimiento de instalacion 
de los programas escritos para CP/M Plus incluira normalmente una opcion para terminales de 
este tipo. 

Entre las funciones incorporadas en el emulador de consola de CP/M Plus se encuentran muchas 
de las antes ofrecidas en el grupo 'Text VDU' del firmware, aunque con diferentes codigos de 
control. Pero en CP/M Plus se dispone de un numero considerable de operaciones nuevas y mas 
complejas. 

Los caracteres del margen de &20 a &FF se exhiben en la pantalla en la posicion actual del 
cursor. Ademas, si el cursor no esta en la ultima columna, se lo desplaza una posicion a la 
derecha; si el cursor esta en la ultima columna y esta activada la continuidad de las Ifneas, se lo 
coloca en la primera columna de la Ifnea siguiente, desplazando la pantalla hacia arriba si es 
necesario. 

Los caracteres del margen de &00 a &IF se interpretan como codigos de control, segun la 
siguiente tabla: 



&07 



BEL 



Produce un pitido. 



&08 



BS 



Retroceso del cursor. Mueve el cursor una posicion hacia la 
izquierda. Si el cursor esta en la primera columna (pero no en la 
primera fila) y esta activada la continuidad de las Ifneas, se lo coloca 
en la ultima columna de la fila anterior. 



&0A 



LF 



Avance de Ifnea. Se baja el cursor a la Ifnea siguiente, desplazando la 
pantalla hacia arriba si es necesario. 



&0D 



CR 



Retorno del carro. Lleva el cursor a la primera columna de la fila 
actual. 



Se ignoran todos los demas codigos de control. 

El emulador de consola reconoce las siguientes secuencias de 'escape'. Todos los demas 
caracteres son exhibidos en la pantalla (con el consiguiente avance del cursor) aunque vayan 
precedidos del codigo de escape. Gracias a esta caracterfstica es posible enviar a la pantalla los 
caracteres visibles correspondientes a los codigos de control del &00 al &IF. (Observese, no 
obstante, que en muchas aplicaciones se reinterpreta el codigo de control &09 (TAB) para que 
signifique cierto numero de espacios; en tales casos la secuencia [ESC] [TAB] no visualizara el 
caracter &09.) 
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[Esqo 


Desactiva la Ifnea indicadora de estado. Los mensajes del sistema de 
disco aparecen en la pantalla principal, en la cual puede utilizar tambien 
la ultima Ifnea. 


[ESC] 1 


Activa la Ifnea de estado. Los mensajes del sistema de disco aparecen 
en la ultima Ifnea de la pantalla. 


[ESC]2<n> 


Selecciona un juego de caracteres (vease la parte 1 6 de este capftulo). 
<n> es el parametro selector de idioma, que se enmascara con &07. 
La accion consiste en intercambiar ciertas matrices de caracteres del 
margen de &20 a &7F con otras del margen de &80 a &FF; es muy 
similar a la que se realiza con impresoras que disponen de varios 
juegos de caracteres seleccionables por programa. 

<n>=0EE.UU. 
<n> = 1 Francia 
<n>=2 Alemania 
<n>=3 Reino Unido 
<n>=4 Dinamarca 
<n>=5 Suecia 
<n>=6 Italia 
<n>=7 Espana 


[ESC]3<m> 


Selecciona el modo de pantalla. <m>=modo + &20. El valor se 
enmascara con &3 para limitarlo al margen de a 2. El modo 3 se 
ignora. Se borra la pantalla, pero no se modifica la posicion del cursor. 


[ESC]A 


Cursor arriba. Si ya esta en la primera Ifnea, ningun efecto. 


[ESC]B 


Cursor abajo. Si ya esta en la ultima Ifnea, ningun efecto. 


[ESC]C 


Cursor a la derecha. Si ya esta en la ultima columna, ningun efecto. 


[ESC]D 


Cursor a la izquierda. Si ya esta en la primera columna, ningun efecto. 


[ESC]E 


Borrar pagina. La posicion del cursor no se modifica. Esta secuencia 
borra la pagina entera, aunque se haya seleccionado el modo de 
24x80. (Hay otros codigos de escape que solo afectan al area 24x80 
cuando esta seleccionado este modo.) 


[ESC]H 


Cursor a la posicion inicial. Lleva el cursor a la primera columna de la 
primera fila. 


[ESC]I 


Retroceso de Ifnea. Sube el cursor a la Ifnea anterior, desplazando la 
pantalla hacia abajo si es necesario. 


[esq 


Borrar hasta el final de la pagina (incluido el caracter que esta en la 
posicion del cursor). No se modifica la posicion del cursor. 


[ESqK 


Borrar hasta el final de la Ifnea (incluido el caracter que esta en la 
posicion del cursor). No se modifica la posicion del cursor. 


[ESqL 


Insertar Ifnea. La Ifnea en la que esta el cursor y todas las siguientes se 
desplazan hacia abajo; se borra la Ifnea del cursor; la posicion de este 
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no se modifica. 


[ESC]M 


Suprimir Ifnea. La Ifnea en la que esta el cursor se pierde; todas las 
siguientes se desplazan hacia arriba; se borra la ultima Ifnea; la posicion 
del cursor no se modifica. 


[ESC]N 


Suprimir caracter. Todos los caracteres que estan a la derecha del 
cursor, en su misma linea, se desplazan una posicion hacia la izquierda. 
El caracter de la ultima columna queda en bianco. 


[ESC]Y<l><c> 


Lleva el cursor a la posicion especificada. Si esa posicion sobrepasa 
algun borde de la pantalla, el cursor se queda en el borde 
correspondiente. <l>=l(nea+&20; <c>=columna+&20. El extremo 
superior izquierdo es Ifnea 0, columna 0. 


[ESC]b<pc> 


Establece color de pluma. Afecta a todos los caracteres presentes en la 
pantalla. El parametro de color, <pc>, se enmascara con &3F y luego 
se lo interpreta como tres numeros de 2 bits que especifican las 
intensidades de los tres colores primarios: los bits y 1 para el azul, los 
bits 2 y 3 para el rojo y los bits 4 y 5 para el verde. El 6128 
proporciona tres niveles de intensidad, que se especifican de la 
siguiente forma: 


CPC6I28 


Intensidad nula 


Intensidad media 


Intensidad maxima 


Bits para cada 
color 


00 (binario) 


01 6 10 (binario) 


1 1 (binario) 




[ESC]c<pc> 


Establece color de fondo. Afecta tanto al fondo como al borde de la 
pantalla. Los colores se especifican como en la secuencia anterior. 


[ESC]d 


Borrar desde el principio de la pagina (hasta la posicion del cursor 
inclusive). No se modifica la posicion del cursor. 


[ESC]e 


Activa el cursor. Para evitar el molesto parpadeo que de otra forma se 
producirfa, el cursor esta inhibido durante la escritura normal del texto 
y solo se lo activa una decima de segundo despues de escribir el ultimo 
caracter. 


[ESC]f 


Inhibe el cursor. 


[ESC]j 


Almacenar la posicion del cursor. 


[ESC]k 


Restablecer la posicion del cursor almacenada por [ESC]j. 


[ESC]I 


Borrar linea. No se modifica la posicion del cursor. 


[ESC]o 


Borrar desde el principio de la Ifnea (hasta la posicion del cursor 
inclusive). No se modifica la posicion del cursor. 


[ESC]p 


Activar el modo de imagen invertida (Video inverso'). Los caracteres 
visibles se escriben con los colores de fondo y pluma invertidos. 


[ESC]q 


Desactivar el modo de imagen invertida. 


[ESC]r 


Activar el modo de subrayado. (No disponible en el CPC6 1 28.) 


[ESC]u 


Desactivar el modo de subrayado. (No disponible en el CPC6 1 28.) 
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[ESC]v 


Activa la continuidad de las Ifneas. Cuando los caracteres enviados a la 
pantalla sobrepasan la ultima columna de una Ifnea, siguen apareciendo 
al principio de la Ifnea siguiente. 


[ESC]w 


Desactiva la continuidad de las Ifneas. Cuando los caracteres enviados 
a la pantalla sobrepasan la ultima columna de una Ifnea, se los ignora. 


[ESC]x 


Activa el modo 24x80. Algunos programas requieren la pantalla 
estandar de 24 filas por 80 columnas. Esta secuencia selecciona esa 
pantalla, independientemente de cual sea el tamano total de la pantalla 
(que depende de la maquina), del pais y de si la Ifnea de estado esta 
activada o desactivada. Se borra la pantalla. 


[ESC]y 


Desactiva el modo 24x80. Se borra la pantalla. 
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Parte 1 7: Juego de caracteres deCP/M Plus 

En la parte 1 de este capitulo hemos descrito una tabla de traduccion para impresoras. El fin de 
esta tabla es convertir algunos caracteres del juego de BASIC y CP/M 2.2 a una forma tal que 
puedan ser escritos por la impresora cuando en ella se ha realizado cierta seleccion de idioma. 
Esta funcion esta limitada por el hecho de que pocos de los caracteres internacionales de las 
impresoras aparecen en el juego de caracteres de BASIC. 

Aunque este metodo sigue funcionando en CP/M Plus, se lo ha ampliado hasta permitir una 
correspondencia casi absoluta entre los caracteres visibles en la pantalla y los de la impresora. (El 
caracter visible que falta es el signo monetario sueco, que deberfa figurar en lugar de '$'.) La 
distribucion de caracteres por idiomas es la siguiente: 



EE. UU. 

Francia 

Alemania 

Reino Unido 

Dinamarca 

Suecia 

Italia 

Espana 



23 24 40 5B 5C 5D 5E 60 7B 7C 7D 7E 


liiiimiiii 


liiillliiill 


Hffle@t'ab'iie 


iliililliiP 


llliiiliilii 


Sliililiiili 


illliiMlilil 


iiiiiii^^llF 



Juego internacional de caracteres de CP/M Plus 



Para adaptar la maquina a un idioma determinado se debe hacer lo siguiente: 



I . Seleccionar el idioma en la impresora (generalmente mediante microconmutadores 
basculantes, aunque en algunas impresoras la seleccion se puede realizar por programa 
enviandole codigos de control). 



2. Seleccionar el juego de caracteres deseado, bien mediante la orden transitoria 



LANGUAGE <n> 



bien enviando la secuencia 



[ESC]2<rP 
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al emulador de consola. 



En la practica, esta inicializacion se suele programar en el p raced imiento PROFILE. SUB 
mediante las funciones LANGUAGE y SETKEYS. El CP/M Plus se suministra con el juego de 
caracteres numero (EE.UU.) preseleccionado, ya que en la tecla del '3' esta grabado el signo 



Juegos de caracteres de 7 bits 

Por util que sea esta posibilidad de seleccionar juegos de caracteres, debemos resaltar que los 
caracteres estandar (EE.UU.) reemplazados por caracteres de otros idiomas dejan de ser 
visualizables. Esto es inevitable cuando se manejan juegos de caracteres de 7 bits. Practicamente 
todos los programas disponibles para CP/M Plus (incluidos casi todos los programas de ayuda y 
los procesadores de texto) trabajan con un juego de caracteres de 7 bits. En el Reino Unido se 
acepta que el signo '#' desaparezca para ser sustituido por el '£', no solo en proceso de textos, 
donde es deseable, sino tambien en los listados de programas, v.g. LIST £8, donde no lo es. Con 
el tiempo el usuario llega a habituarse a hacer mentalmente la transformacion de un signo a otro. 

Pero en otros idiomas los cambios son mas perturbadores. Los signos nuevos reemplazan 
caracteres tan necesarios como la barra vertical y los corchetes. A pesar de la mejora de la 
legibilidad de los textos gracias a los acentos, en las situaciones en las que el programa requiere 
la barra y los corchetes (por ejemplo, DIR [ALL] la legibilidad queda notablemente reducida. Lo 
mismo se puede decir de la facilidad de escritura, si se han cambiado algunas teclas para 
adaptarlas al nuevo juego de caracteres. 

Recuerde que los programas trabajan con codigos ASCII y son totalmente indiferentes a la forma 
que puedan tener los caracteres en la pantalla. Lo que ocurre con los juegos de caracteres de 7 
bits es, sencillamente, que no hay codigos suficientes para cubrir todas las necesidades. 
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Juegos de caracteres de 8 bits 

El juego de caracteres de BASIC tiene 256 simbolos diferentes; los codigos del 1 28 al 255 (&80 a 
&FF) representan diversos sfmbolos graficos de aplicacion en programas de juegos e informatica 
domestica. En CP/M Plus tambien hay 256 caracteres, pero los 1 28 ultimos son distintos de los 
de BASIC; estan disehados para aplicaciones comerciales y para la generacion de juegos 
especfficos por idiomas: 

0123456789ABCDEF 1 23456 789 ASG D EF 

■ABtiftSiiSIlllBIBI s liltilllliiiliii 

1 niiiitniiMiii£stf« « iiiiiiiiitiiiiii 

2 illlfllliillilll A il^ESIt £*% ^|«ai £« 

3 iiiiiss?tiii£ = ii b iiiiiiaailBi**®^ 

4 BflBGDEEGHUKLMNS c lilllllliiiltili 

5 liiiiililiif Mill d liiiiitilMilliie 
e iHfilMiiliStlitHII e iiiiiiifiiftstsfia 
7 iiiilii!ii!lll!l p iilillilisilliii 

Caracteres del at 127 (&00 a &7F) Caracteres del 128 al 255 (&80 a &FF] 

Juego de caracteres estandar (EE.UU.) de CP/M Plus 



Los programas capaces de trabajar con juegos de caracteres de 8 bits disponen de este juego 
completo y podran, no solo dibujar recuadros, sino tambien acceder a los caracteres especiales 
de todos los idiomas, sin encontrar los problemas que describiamos en la seccion anterior. 

En la actualidad hay muy pocos programas preparados para trabajar con juegos de caracteres de 
8 bits. Los caracteres de los margenes de a 3 I y de 1 28 a 255 tendran el aspecto que se 
muestra en la figura anterior solamente en la pantalla. En la impresora seran distintos, pues los 
fabricantes de impresoras tienen sus propias ideas sobre el diseho de juegos de caracteres. 
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Capitulo 8 - Mas sobre el gestor de bancos de memoria 

Utilization por BASIC del segundo banco de 64K de RAM. 

Temas tratados: 

* Almacenamiento de imageries de pantalla 

* Pseudoficheros 

El mapa de memoria de BASIC I.I que vimos en el capitulo anterior, parte 14, muestra que 
BASIC no utiliza 64 de los 1 28K de RAM. BASIC y el firmware residen en una ROM; si a esta se 
anade la ROM del sistema de disco, resulta que la memoria utilizable desde BASIC es I 1 2K en 
total (64K de RAM y 48K de ROM). 

Cada seccion de I6K es un 'bloque'; un grupo de 4 bloques (64K) es lo que se denomina 'banco'. 
La tecnica de seleccion de bloques se llama, pues, 'conmutacion de bancos'. 

El microprocesador Z80 no puede direccionar, en un momento dado, mas de 64K. Por esa 
razon el sistema operativo esta preparado para utilizar la ROM del firmware en lugar del bloque 
de RAM, o las ROM de BASIC o del sistema de disco en lugar del bloque 3 de RAM. Esta 
conmutacion se realiza automaticamente cada vez que se deben ejecutar rutinas de BASIC o del 
firmware. 

Pues bien, la seleccion de bancos de RAM no es mas que una generalizacion de este metodo. La 
conmutacion la realiza un programa escrito en ensamblador. 

En la cara I del juego de discos del sistema se incluye el programa BANKMAN.BAS. Este 
programa se ejecuta desde BASIC; su objeto es instalar la RSX que proporciona las ordenes 
externas de gestion de bancos. 

Una aplicacion del segundo banco de 64K es el almacenamiento temporal de imagenes de 
pantalla; por ejemplo, en un programa 'disenador de pantallas' que almacene varias pantallas 
diferentes, o un videojuego que tenga preparadas varias pantallas para mostrarlas inmediata- 
mente cuando las necesite. 

Otra aplicacion del segundo banco de 64K es la ampliacion del espacio dedicado a las variables; 
este espacio adicional se puede considerar como ampliacion del espacio reservado a las matrices 
literales o como "disco de RAM" ('Ramdisc'). 

Parte 1: Almacenamiento de imageries de pantalla 

El gestor de bancos puede 'desconectar' el bloque I de RAM y poner en su lugar uno cualquiera 
de los cuatro bloques de I6K de que consta el segundo banco. La figura siguiente muestra en 
que consiste esta conmutacion. Observe que los cuatro bloques del segundo banco estan todos 
en el mismo grupo de direcciones, de &4000 a &7FFF. El contenido del bloque I (normalmente 
ocupado por instrucciones de BASIC) no se pierde, sino que es restaurado cuando el gestor de 
bancos termina su trabajo. Ademas de las cinco conmutaciones de bancos ilustradas en la figura, 
hay otras tres posibles, pero solo se las utiliza en CP/M. 
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Conmutacion de bancos por hardware 

El gestor de bancos dispone de dos ordenes externas con las que se pueden transferir pantallas 
completas de un bloque a otro; estas ordenes conmutan automaticamente los bloques 4 a 7 
cuando es necesario y dejan restablecido el bloque I . 

La orden 

| SCREENSWAP, [<seccion de pantal la>,]<numero de pantalla>, <numero de pantalla> 

intercambia el contenido de dos bloques, mientras que 

| SCREENCOPY , [<seccion de pantal la>,<numero de pantalla destino>,<numero de 
pantal la fuente> 

copia el contenido de un bloque en otro. 



El parametro opcional <seccion de pantalla> hace que la transferencia de informacion se realice 
por tramos de 1/64 de pantalla (256 bytes del total de I6K). Asf pues, el parametro puede tener 
cualquier valor comprendido entre y 63. Este metodo de operacion es util cuando se necesita 
mezclar alguna otra tarea con la de transferencia de pantallas. El tiempo de ejecucion de un 
intercambio de pantallas es de aproximadamente 150/300 segundos (150 unidades de la variable 
TIME). 

Los <numeros de pantalla> son numeros cualesquiera del margen de I a 5. (La pantalla I es la 
visible.) Las operaciones de copia e intercambio en las que interviene la pantalla I son mucho 
mas rapidas que las otras. Tenga cuidado con el efecto de 'desplazamiento vertical por 
hardware', que ya puede haber experimentado al trabajar con volcados de pantalla. Se debe 
procurar que todas las imagenes de pantalla se construyan (y visualicen) con la pantalla I en la 
misma posicion de hardware. La posicion mas sencilla es la establecida por una orden MODE. 
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Ejemplos de transferencias depantallas 

Cargue y ejecute el programa BANKMAN con la orden 
RUN "BANKMAN" 

Escriba 

MODE 1 

con lo que se borra la pantalla. Ahora escriba 

' Esta es la pantalla original 

|SCREENC0PY,3,1 'Pantalla original va a la memoria 3 

CLS 

La pantalla se ha vuelto a borrar. Escriba ahora 

1 Esta es la pantalla intermedia 

|SCREENC0PY,2,1 'Pantalla intermedia va a memoria 2 

|SCREENSWAP,2,3 'Intercambia memorias 2 y 3 

|SCREENC0PY,1,3 ' Recupera pantalla intermedia desde memoria 3 

|SCREENSWAP,2,3 'Recupera pantalla original desde memoria 2 

Al final del capftulo 9 damos un completo programa 'disehador de pantallas' que utiliza las 
funciones de transferencia de pantallas proporcionadas por el gestor de bancos. 



Parte 2: Ficheros en RAM 

Considerado como 'RAMdisc', el segundo banco de 64K de RAM se puede organizar en forma 
de fichero, con cierto numero de registros de longitud fija. La longitud de registro puede ser de 
entre y 255 bytes, si bien 2 bytes es el mfnimo recomendable. Una vez establecida la 'longitud 
de registro', cada registro es accesible para operaciones de escritura y lectura por su 'numero de 
registro'. Es perfectamente posible escribir en un fichero de RAM con una longitud y luego leer 
con otra distinta. 

Nota. El fichero de RAM solo puede contener datos; no esta prevista su utilizacion para 
almacenar instrucciones de programa. 

Al igual que en los sistemas de ficheros de acceso aleatorio en disco, aquf existe tambien el 
concepto de 'numero de registro actual'. Este numero se mantiene siempre actualizado, y es util, 
por consiguiente, cuando se recorre el fichero avanzando automaticamente de cada registro al 
siguiente. 

La orden 

|BANKOPEN,<longitud de registro> 

establece la longitud de registro e inicializa el 'numero de registro actual' (a 0), pero no borra 
memoria. 

La orden 



|BANKWRITE,@<codigo generado>,<expresion 1 iteral>[,<numero de registro>] 
escribe la <expresion literal> en el fichero. El <numero de registro> especificaen que registro 
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se debe escribir. Si se omite este parametro, se escribe en el numero de registro actual. 
Finalmente, se actualiza este numero (sumandole I). 

Si la <expresion literal > no llena el registro, los caracteres antiguos sobre los que no se ha 
escrito seguiran estando en el registro. Si la <expresion literal > es demasiado larga, se ignoran 
los caracteres restantes para no 'corromper' el registro siguiente. 

El <codigo generado> es una variable entera a traves de la cual se puede conocer, al concluir la 
operacion, el numero de registro en el que se ha escrito (si la escritura se ha realizado con exito) 
o un numero de error (negativo) si la escritura ha fracasado: 

• - 1 indica que se ha alcanzado el final del fichero (se ha intentado sobrepasar el final de los 
64 K) 

• -2 indica un error de conmutacion de bancos (no deberfa ocurrir nunca) 



Ejemplos: 

|BANK0PEN,10 

|BANKWRITE,(3r% 5 "123 pruebas",0 
|BANKWRITE,(3r%,w$ 

La orden 

|BANKREAD,@<codigo generado>,@<variable 1 iteral>[, numero de registro>] 

lee un registro y asigna su contenido a la <variable literal>. 

El < numero de registro > especifica en que registro se debe leer. Si se omite este parametro, se 
lee en el numero de registro actual. Finalmente, se actualiza este numero (sumandole I). 

Si el contenido del registro no llena completamente la < variable literal >, los caracteres antiguos 
sobre los que no se ha escrito seguiran estando en la < variable literal >. Si el contenido del 
registro es mas largo que la <variable literal>, se ignoran los caracteres restantes, ya que no es 
posible aumentar la longitud de la variable mediante una orden externa. 

El <codigo generado> es una variable entera a traves de la cual se puede conocer, al concluir la 
operacion, el numero de registro en el que se ha lefdo (si la lectura se ha realizado con exito) o 
un numero de error (negativo) si la lectura ha fracasado: 

• - 1 indica que se ha alcanzado el final del fichero (se ha intentado sobrepasar el final de los 
64 K) 

• -2 indica un error de conmutacion de bancos (no deberfa ocurrir nunca) 

Ejemplo: 

|BANKREAD,(3r%,i$,0 

Busquedas 

Se puede recorrer el fichero en busca de un dato determinado. La orden 

|BANKFIND,@<codigo generado>,<cadena buscada>[,<numero de registro 
inicial>[,<numero de registro f i nal >] ] 

examina los registros especificados. El < numero de registro inicial> especifica el registro a 
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partir del cual debe comenzar la busqueda. Si se omite este parametro, se toma por defecto el 
numero de registros actual. 

La busqueda continua, a saltos de <longitud de registro>, hasta que se encuentra la cadena o 
hasta que se agotan los 64 K. 

Si se especifica el < numero de registro final >, la busqueda termina cuando se ha examinado ese 
registro (a menos que se haya encontrado la cadena antes). 

Si la busqueda concluye con exito, el 'numero de registro actual' apunta al registro donde se ha 
encontrado la cadena; si no, sigue teniendo el valor anterior. 

El <codigo generado> es una variable entera que contiene, al terminar la operacion, 
informacion sobre como se ha desarrollado esta. Si ha concluido con exito, contiene el numero 
de registro en el que encontro la cadena; si no, contiene un numero negativo que es un codigo 
de error: 

• -I Fin del fichero. El <numero de registro inicial> sobrepasa el final de los 64K, o bien 
es mayor que el < numero de registro final >. 

• -2 Error de conmutacion de bancos (no deberfa ocurrir nunca). 

• -3 No se ha encontrado la cadena buscada. 

La < cadena buscada> puede contener sfmbolos comodfn, que en este caso son caracteres 
numero 0, chr$(0). El numero de caracteres que intervienen en las comparaciones es igual a la 
<longitud de registro> o a la longitud de la <cadena buscada>, el mas corto de los dos. 



Ejemplos: 



BANKFIND,(3r%,"123pru",0 
BANKFIND,(3r%,f$,100,200 



Cuidado con los errores 

Los errores obvios, tales como poner demasiados parametros, son detectados e identificados 
como Bad Command. Sin embargo, el mecanismo de las ordenes externas no permite detectar 
errores del tipo Type mismatch, por lo que el usuario debe cerciorarse de que esta utilizando 
parametros de la forma correcta. 

El siguiente programa utiliza las ordenes de RAMdisc para examinar una base de datos que 
contiene permutaciones de letras formadas con palabras de 7 letras. Busca concordancias y 
permite utilizar sfmbolos comodfn. 

Por ejemplo, las permutaciones de la palabra CENTRAL que concuerdan con ?NACE?? (puede 
omitir los dos ultimos sfmbolos ?) son TNACERL, TNACELR, RNACETL, RNACELT, LNACETR 
y LNACERT. 

Se tarda bastante en crear la base de datos, pero es que 64K es mucha memoria. 



10 
20 
30 
40 
50 
60 
70 MODE 2 



REVUELT0 DE LETRAS, por ROLAND PERRY 
copyright (c) AMS0FT 1985 

No olvide RUN "BANKMAN" antes de ejecutar este programa 

kkkkkkkkkkkkk 
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80 DEFINT a-z 

90 r%=0:|BANK0PEN,7 

100 INPUT"Que palabra de 7 letras quiere revolver";s$ 

110 IF LEN(s$)<>7 THEN 100 

120 PRINT"Por favor, espere un rato." 

130 LOCATE l,5:PRINT"Sigo trabajando: " 

140 FOR cl=l TO 7 

150 FOR c2=l TO 7 

160 IF c2=cl THEN 370 

170 FOR c3=l TO 7 

180 IF c3=c2 OR c3=cl THEN 360 

190 FOR c4=l TO 7 

200 IF c4=c3 OR c4=c2 OR c4=cl THEN 350 

210 FOR c5=l TO 7 

220 IF c5=c4 OR c5=c3 OR c5=c2 OR c5=cl THEN 340 

230 FOR c6=l TO 7 

240 IF c6=c5 OR c6=c4 OR c6=c3 OR c6=c2 OR c6=cl THEN 330 

250 FOR c7=l TO 7 

260 IF c7=c6 OR c7=c5 OR c7=c4 OR c7=c3 OR c7=c2 OR c7=cl THEN 320 

270 o$=MID$(s$,cl,l)+MID$(s$,c2,l)+MID$(s$,c3,l)+MID$(s$,c4,l)+ MID$ 

(s$,c5,l)+MID$(s$,c6,l)+MID$(s$,c7,l) 
280 LOCATE 18, 5: PRINT x;o$ 
290 |BANKWRITE,r%,o$ 
300 IF r%<0 THEN STOP 
310 x=x+l 
320 NEXT c7 
330 NEXT c6 
340 NEXT c5 
350 NEXT c4 
360 NEXT c3 
370 NEXT c2 
380 NEXT cl 
390 ill timoreg=r% 
400 REM ahora vamos a buscar 
410 r%=0:g$=SPACE$(7) 
420 PRINT: INPUT'Que subpalabra quiere buscar (puede escribir ? como simbolo 

comodin) ",m$ 
430 m$=LEFT$(m$,7) 
440 FOR x-1 TO LEN(m$) 

450 IF MID$(m$,x,l)="?"THEN MID$(m$,x,l)=CHR$(0) 
460 NEXT 

470 |BANKFIND,r%,m$,0,ultimoreg 
480 IF r%<0 THEN 420 
490 |BANKREAD,r%,g$ 
500 PRINT g$, 

510 |BANKFIND,r%,m$,r%+l,ultimoreg 
520 GOTO 480 
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Capitulo 9 - Cuando usted guste 



En este capftulo vamos a dar un repaso a ciertas cuestiones basicas de informatica en general y 
del CPC6 1 28 en particular. No es imprescindible leer este capftulo para trabajar con el 
ordenador, pero puede ayudarle a entender algo de lo que esta ocurriendo en su interior. 

Parte 1: En terminos generates 

iFulmina el bicho! 

Aun cuando lo unico que le interese de su CPC6 1 28 sea disfrutar de los sofisticados juegos de 
ordenador que se venden en las tiendas, es posible que se pregunte que tiene la maquina dentro, 
es decir, que es eso del hardware. 

Hardware es lo que usted puede coger y llevarse bajo el brazo (es un decir): la caja gris donde 
esta el teclado, el monitor, los cables, etc. Mas en general, todo lo que no sea especfficamente 
software: programas, manuales e informacion grabada en cinta o en disco. 

Ciertos aspectos del funcionamiento del ordenador estan estrechamente ligados al hardware; 
por ejemplo, la imagen de color que usted puede ver en la pantalla. En cambio, es 
responsabilidad del software controlar el hardware para producir los caracteres y dibujos 
deseados. 

Es el hardware el que dirige el haz de electrones a la superficie electroluminiscente de que esta 
recubierto el interior del tubo del televisor; el software aporta la organizacion y la inteligencia 
para decir al hardware como y cuando debe hacerlo. Ahade ademas el control de los tiempos y 
de las secuencias de acciones para que usted pueda ver la nave espacial despegando, o para algo 
tan mundano como que aparezca una letra en la pantalla cada vez que usted pulsa una tecla. 

iPor que es un ordenador mejor que otro? 

El hardware sin el software es completamente inutil, y viceversa. El ordenador empieza a servir 
para algo cuando hardware y software se ponen de acuerdo para llevar a cabo sus cometidos. 
Hay algunas consideraciones basicas que se pueden tener en cuenta para valorar la calidad tanto 
de uno como del otro. 

Los puntos de referenda generalmente aceptados para los ordenadores personates son: 

1 . Resolucion de la pantalla: tamario del menor elemento discernible 

El concepto de resolucion es una mezcla de diversos factores: numero de colores disponibles 
para el programador, numero de areas discernibles en la pantalla (pixels) y numero de 
caracteres de texto que caben en ella. 

Usted puede comprobar que su CPC6 1 28 es superior a este respecto a los otros ordenadores 
de su nivel de precio. 

2. El interprete de BASIC 

Practicamente todos los ordenadores domesticos incluyen un interprete de BASIC que permite 
al usuario crear programas con los que controlar el hardware. El lenguaje de programacion que 
viene con la maquina, BASIC, no es mas que un programa, pero un programa extremadamente 
complejo que ha evolucionado a lo largo de los ahos, desde que se 'invento' el BASIC en los 
Estados Unidos. El 'Beginners' All-purpose Symbolic Instruction Code' (codigo de instrucciones 
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simbolicas de uso general para principiantes) es el lenguaje de ordenador mas ampliamente 
utilizado en el mundo entero; como todos los lenguajes, tiene sus dialectos locales. 

La version utilizada en el CPC6I28 es una de las de mayor compatibilidad; puede ejecutar 
programas escritos para funcionar bajo control del sistema operativo de disco CP/M. Es una 
version muy rapida de BASIC, lo que quiere decir que realiza los calculos muy deprisa. A usted 
quiza no le parezca demasiado impresionante que un ordenador tarde 0.05 segundos en 
multiplicar 3 por 5 y escribir la respuesta, mientras que otro ordenador tarda 0.075 segundos en 
hacer lo mismo. Pero cuando se trata de dibujar graficos en la pantalla, tarea que puede requerir 
millares de calculos repetitivos, la diferencia entre 0.05 y 0.075 segundos es decisiva. 

Usted oira hablar frecuentemente de 'codigos de maquina'. El codigo de maquina es una forma 
de suministrar instrucciones directamente al microprocesador. La velocidad de ejecucion es 
entre 5 y 1 5 veces mayor en codigo de maquina que en BASIC, pero el tiempo que se tarda en 
escribir un programa puede ser hasta 50 veces mayor en codigo de maquina que en BASIC. 

El BASIC de Amstrad es de los mas rapidos y completos que se pueden encontrar en 
ordenadores personales, e incorpora muchos recursos que ayudan al programador experto a 
superar parte de la lentitud inherente a todos los lenguajes de alto nivel para producir efectos 
visuales y sonoros sorprendentemente dinamicos. 

3. Ampliabilidad 

Casi todos los ordenadores prestan atencion a la necesidad de conectar perifericos tales como 
impresoras, joysticks y unidades de disco. Sin embargo, muchos de los mas populares 
ordenadores domesticos necesitan interfaces externas para que se les pueda conectar una 
simple impresora o un joystick. 

El comprador no siempre preve las necesidades futuras, pero un ordenador que incorpore un 
interfaz para impresora o un conector para joystick puede ser mas barato a la larga que otro por 
el que tenga que pagar menos en el momento de la adquisicion. El CPC6 1 28 tiene incorporada 
una puerta de salida para impresora (tipo Centronics), una salida para segunda unidad de disco, 
una salida para cinta (con control de motor), un conector para dos joysticks, una salida de sonido 
estereofonico y una puerta de expansion a la que se puede conectar un interfaz serie (modelo 
RS232C de Amstrad), un modem, un sintetizador de voz (modelo SSA2 de Amstrad), un lapiz 
optico, etc. 

4. Sonidos 

Las caracterfsticas sonoras de un ordenador determinan si 'suena a lata' o si puede producir una 
imitacion aceptable de un instrumento musical electronico. 

El CPC6 1 28 esta dotado de un generador de sonido de 3 canales y 8 octavas, que puede dar una 
calidad musical muy aceptable y permite el control completo de las envolventes de tono y de 
volumen. Ademas, el sonido se puede obtener en una configuracion estereofonica, con canal 
izquierdo, canal derecho y canal comun. 

Esto permite programar el sonido para coordinarlo con el movimiento de objetos por la pantalla. 

En ultimo extremo, es usted quien tiene que decidir que caracterfsticas le son mas necesarias. 
Esperamos que las pruebe todas, para asi aprovechar al maximo su ordenador. 

IPor que no puede? 

Sabiendo lo poderosa que es la tecnologfa actual, los usuarios se preguntan frecuentemente por 
que una maquina tan avanzada como el CPC6I28 es incapaz de imitar las imagenes de un 
televisor de color. Por ejemplo, ipor que no puede un ordenador mostrar en la pantalla la 
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imagen de una persona caminando con naturalidad? iEs que los ordenadores no son capaces de 
dar movimiento mas que a unos burdos monigotes? 

La respuesta es facil, aunque compleja. No crea usted que la pantalla de su ordenador puede 
tener la misma riqueza de detalles que la de un televisor. Los televisores funcionan con una 
informacion 'analogica', que puede describir, con resolucion casi ilimitada, todos los grados 
posibles de intensidad de todos los colores del espectro visible. En terminos informaticos, esto 
representa que la 'memoria' necesaria para almacenar una imagen de television es unas veinte 
veces mayor que la que se le dedica a un ordenador domestico. 

Pero esto es solo una parte del problema. Para dar movimiento a una imagen, hay que procesar 
toda esa informacion a gran velocidad (del orden de 50 veces por segundo). No es imposible, 
pero para ello se necesitan maquinas que cuestan unos cuantos miles de veces mas que un 
ordenador domestico, al menos en la actualidad. 

Hasta que el precio de la memoria de alta capacidad baje drasticamente (lo que ocurrira algun 
dfa), los ordenadores pequehos tienen que arreglarselas con una memoria relativamente 
pequeha para controlar la pantalla, lo que representa menor resolucion y movimientos mas 
espasticos. Optimizando el hardware y el software se puede paliar considerablemente estas 
limitaciones, pero de momento tendremos que seguir conformandonos con imagenes torpes 
que ni siquiera Megan a parecerse a las de una pelfcula de dibujos animados de regular calidad. 

Ese teclado me suena .. . 

iPor que no puedo sentarme ante el ordenador y escribir una sencilla pagina de texto? 

No se deje engahar por el hecho de que el ordenador se parece a una maquina de escribir 
electronica con pantalla. La pantalla no es una hoja de papel electronico: es una 'consola de 
ordenes', expresion tecnica que quiere decir que es una via de comunicacion entre el usuario y 
el lenguaje de programacion que esta en la memoria de la maquina. 

Mientras no se le mande otra cosa, el ordenador tratara de entender todo lo que se le 
comunique a traves del teclado, pues supone que son instrucciones. Cuando usted pulsa 
[RETURN], el ordenador examina lo tecleado; si no es inteligible para el BASIC residente, lo 
rechaza y emite el mensaje: 

Syntax error 

Ahora bien, puede ocurrir que el programa actualmente presente en la memoria sea un 
procesador de textos; en tal caso usted podra escribir las palabras que desee, pulsar [RETURN] 
y seguir escribiendo a sus anchas, exactamente igual que si el ordenador fuera una maquina de 
escribir que utilizara papel electronico. Pero, para que esto sea posible, antes se debe haber 
cargado en la memoria un programa de proceso de textos. 

El ordenador parece combinar aparatos que nos resultan familiares de tanto verbs en casa y en 
la oficina, como son la pantalla y el teclado. Pero recuerde que la similitud normalmente es 
superficial y que el ordenador es una combinacion de elementos con personalidad propia. 
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IQuien term a lajerga? 

Como ocurre con todas las ramas especializadas de la industria, la informatica ha desarrollado 
una jerga propia para facilitar la comunicacion de conceptos complejos que de otra forma 
requerirfan muchas palabras de lenguaje ordinario. Esto no ocurre solamente en el campo de la 
alta tecnologfa; todos hemos topado con barreras de este tipo levantadas por los profesionales 
de distintas areas. 

En el caso de la informatica, la confusion se debe mas a la forma de utilizar las palabras que a las 
palabras en sf. (Y en castellano, a la imposibilidad de traducir ciertas palabras inglesas o a que no 
nos tomamos la molestia de intentarlo.) Casi todos los que llegan a familiarizarse con la 
terminologfa de la informatica se esfuerzan por utilizar las palabras de la forma mas directa 
posible, con objeto de minimizar la dificultad de la comunicacion. Pero no crea que el lenguaje 
informatico es lo mismo que el lenguaje literario; la informatica no es literatura, sino una ciencia 
precisa; aparte la sintaxis, la estructura de la comunicacion en informatica es directa y sencilla, y 
de ningun modo confusa o ambigua. Como no es literatura, la informatica no ha necesitado 
desarrollar una asignatura de 'comentario de textos' para analizar el significado exacto del 
significado de los programas. 

Independientemente de si el significado de un programa es obvio o no lo es, hay muchos 
aspectos de la programacion que se pueden calificar de embarullados o de elegantes; ahora que 
se esta asentando el revuelo inicial causado por la aparicion de los microordenadores, se esta 
prestando mayor atencion a los aspectos formales de la construccion de programas. 

La informatica esta penetrando en las mentes de muchos jovenes que valoran la precision y la 
sencillez de las ideas y de la forma de comunicarlas. No hay demasiados nihos que a los diez 
ahos sean ya abogados, pero sf muchos que a esa edad saben programar. 
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Lo bdsico de BASIC 

Casi todos los ordenadores domesticos tiene incorporado el lenguaje BASIC, que hoy por hoy es 
lo mas proximo al lenguaje ordinario. El nombre del lenguaje no implica ninguna limitacion en 
cuanto a sus posibilidades; de hecho, se ha escrito programas extremadamente complejos y 
potentes en BASIC. 

Sin embargo, es evidente que el nombre ha atrafdo a muchos principiantes, que esperaban 
encontrar un BASIC un buen punto de partida entre el laberinto de los lenguajes de 
programacion; y esto ha contribuido en gran medida a su universalidad. 

BASIC es un lenguaje informatico que interpreta un reducido numero de ordenes, como 
resultado de las cuales realiza operaciones con los datos segun se va ejecutando el programa. A 
diferencia del vocabulario humano medio, que consta de entre 5000 y 8000 palabras (ademas de 
la conjugacion de los verbos, plurales, diminutivos, etc.), BASIC tiene que arreglarselas con solo 
un par de centenares. Los programas escritos en BASIC tienen que ajustarse a reglas Muy 
estrictas en cuanto a la forma de utilizar esas palabras. La sintaxis es muy precisa; todo intento 
de comunicarse con el ordenador en lenguaje coloquial producira el frfo mensaje: 

Syntax error 

Esto no representa una limitacion seria, ya que BASIC esta disehado para trabajar con numeros. 
Las palabras son basicamente una generalizacion de las operaciones matematicas elementales 
(+, -, etc.). El concepto mas importante que tienen que asimilar los principiantes es que el 
ordenador solo puede manejar datos numericos. Es decir, la informacion que se envfa a la CPU 
(unidad central de proceso) tiene que estar en forma numerica. 

Numeros 

Si emplearamos un ordenador para almacenar las obras completas de Shakespeare, en todo el 
sistema no encontrariamos ni una sola letra o palabra. Todo elemento de informacion debe ser 
convertido a numero antes de que el ordenador pueda reconocerlo y manipularlo. 

BASIC interpreta las palabras como si fueran numeros; para procesarlas, el ordenador no 
dispone de mas medios que la suma, la resta y la logica de Boole, con la cual puede hacer 
comparaciones y seleccionar atributos; en otras palabras, averiguar si un numero es menor o 
igual que otro, o realizar determinada tarea si un numero cumple cierta condicion.. 
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A traves del programa, el ordenador desmenuza todas las tareas en sus componentes mas 
elementales. 




Si todo esto le parece farragoso, esta en lo cierto. Ha descubierto la primera y mas importante 
verdad de la informatica. Un ordenador es una herramienta que sirve para realizar tareas 
elementales y repetitivas a gran velocidad y con precision absoluta. Asf, BASIC interpreta las 
instrucciones que se le dan por medio del programa y las traduce al lenguaje que la CPU (unidad 
central de proceso) puede entender. La logica del ordenador solo distingue dos estados: sf y no; 
en notacion binaria, I y 0; en notacion de Boole, 'verdadero' y 'falso'. No hay estados 
intermedios del tipo 'quiza'. 

El proceso de conmutacion entre esos dos estados es la esencia del termino 'digital'. En la 
naturaleza casi todos los procesos evolucionan gradualmente de un estado 'estable' a otro. En 
cambio, en la situacion digital ideal, la transicion de un estado a otro es instantanea. Sin embargo, 
las leyes de la ffsica de semiconductores imponen un pequeho retardo, el retardo de 
propagacion, que es el causante del tiempo que tarda el ordenador en procesar la informacion 
antes de dar la respuesta. 

En todo caso, el ordenador tiene que esperar hasta que concluya una tarea antes de poder 
abordar la siguiente, lo que representa que siempre se le impone un retardo artificial. El proceso 
digital es 'bianco' o 'negro', y las fases de transicion por los diversos grados de 'gris' no tienen 
ninguna importancia. En cambio, los procesos analogicos se realizan precisamente a traves de 
esas fases de 'gris'. 

Si la respuesta final solo puede ser o I , no es posible que el resultado sea 'casi' correcto. El 
hecho de que los ordenadores cometan errores en ocasiones se debe a la limitacion del tamaho 
de los numeros que pueden procesar; los numeros con demasiados dfgitos tienen que ser 
'comprimidos' para que encajen en el espacio disponible, lo que conduce a errores de redondeo. 

En un mundo en el que solo existen los digitos y I , icomo se cuenta mas alia de I ? 

Bits y bytes 

Estamos habituados a entender los numeros solamente cuando estan expresados en el sistema 
decimal, en el que el punto de referenda es el numero 10 y en el que se dispone de 10 dfgitos 
(del al 9) para representar los numeros. El sistema binario es conceptualmente analogo al 
decimal, pero con solo dos dfgitos; las unidades con las que opera este sistema son los 
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denominados bits (forma contraida de Binary digiT, digito binario). 

La relacion entre bits y numeros decimales es sencilla y vamos a estudiarla. 

Es habitual declarar el maximo numero de bits que vamos a usar para representar los numeros, 
y ahadir ceros por la izquierda para completar la expresion. Por ejemplo, el numero decimal 7 se 
convierte en el binario 

001 I I 

en notacion de 5 bits. 

En el sistema binario, los dfgitos se pueden considerar como indicadores dispuestos en columnas 
para especificar si una determinada potencia de 2 esta presente o no lo esta: 

2° = I 

2'=2 = 2 = 2(2°) 

2 2 = 4 = 2x2 = 2(2') 

2 3 = 8=2x2x2=2(2 2 ) 
2 4 = 16 = 2x2x2x2 = 2(2 3 ) 

de modo que las columnas tienen el siguiente aspecto: 

■j4 -}3 "j2 •} I •)(> 

I I I 

(16 +0 +0 +2 +1) =19 



Para abreviar la terminologfa al hablar de informacion binaria se introduce el concepto de 'byte', 
que es una sucesion de 8 bits. El mayor numero que se puede representar con un byte es 
I I I I I I I I (binario) o 255 (decimal). Si contamos tambien el 00000000, resulta un total de 256 
numeros distintos, que son datos perfectamente validos para el ordenador. 

Los ordenadores prefieren manejar los bits en grupos de 8. El numero 256 es demasiado 
pequeho, y por eso, para poder controlar la memoria, se utilizan dos bytes que se interpretan en 
forma matricial. Cada posicion de memoria tiene una direccion vertical y otra horizontal, y entre 
las dos caracterizan sin ambigiiedad la posicion. Por ejemplo, la siguiente matriz puede 
caracterizar hasta 10x10 elementos de informacion utilizando numeros de direccion 
comprendidos entre y 9. El elemento almacenado en la posicion 3,5 es un 'I 1 , lo mismo que el 
que esta en la posicion 5,5. 
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Analogamente, una matriz binaria de 256 x 256 puede caracterizar 65536 posiciones utilizando 
direcciones de 8 bits para los ejes vertical y horizontal de la matriz. Nuestros elementos iniciales, 
'0' y ' I ', han progresado hasta ser capaces de identificar 65536 elementos diferentes. 

El siguiente nivel de abreviatura en terminologfa binaria es el K, que representa 1024 bytes. El 
numero 1024 es la potencia de 2 mas proxima a nuestro 'kilo' (1000), y explica por que se dice 
que un ordenador es de 64K cuando en realidad tiene una memoria de 65536 bytes (64 x 1024). 

Afortunadamente, el interprete de BASIC se encarga de todas estas conversiones. Es 
perfectamente posible llegar a ser un programador aunque no se domine el sistema binario. No 
obstante, unos conocimientos del sistema binario pueden ayudar a desenmascarar la magia de 
ciertos numeros clave que inevitablemente nos encontramos en informatica. 

Vale la pena dedicar algun tiempo a entender el sistema binario y a comprender el por que de 
numeros tales como el 255 o el 1024, pues parece evidente que estos numeros seguiran siendo 
el fundamento de la informatica, al menos en el futuro previsible. La fiabilidad y sencillez que 
proporciona el sistema binario se seguira imponiendo a la complejidad que implicarfa cualquier 
otro sistema de numeracion. 

Sin embargo ... 

Por sencilla y elegante que sea, la notacion binaria induce a confusion a los humanos, porque no 
somos capaces de leer de un golpe de vista los numeros binarios. Hay algunos otros sistemas de 
numeracion que los programadores utilizan con mayor facilidad. Un sistema muy utilizado en 
microordenadores es el hexadecimal (HEX). Su base es el numero 16. La correspondencia entre 
dfgitos decimales y hexadecimales es la siguiente: 

Decimal 

I 23456789 10 I I 12 13 14 15 
Hexadecimal 

I 23456789 A B C D E F 

El sistema hexadecimal puede dividir los 8 bits de un byte en dos bloques de 4 bits, ya que 1 5 es 
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un numero de 4 bits: I I I I en binario. El primer bloque indica el numero de unidades completas 
de '15'; el segundo bloque indica el 'resto'. Y aquf es donde empieza a aparecer la elegancia de 
los sistemas binario y hexadecimal. A continuacion damos una tabla de conversion entre los tres 
sistemas para los primeros numeros: 



Decimal 


Binario 


Hexadecimal 











1 


1 


1 


2 


10 


2 


3 


II 


3 


4 


100 


4 


5 


101 


5 


6 


110 


6 


7 


III 


7 


8 


1000 


8 


9 


1001 


9 


10 


1010 


A 


II 


ION 


B 


12 


MOO 


C 


13 


1101 


D 


14 


1110 


D 


15 


MM 


F 


16 


10000 


10 



Un numero de 8 bits tal como el I 1 1 1 1 (&D6 hex) puede ser subdividido en dos de 4 bits. A 
lo largo de todo este manual indicamos los numeros hexadecimales precediendolos del signo &. 
El sistema hexadecimal es el mas utilizado por los programadores que trabajan en ensamblador. 
El lenguaje ensamblador es la etapa mas cercana a codigo de maquina a la que Megan 
normalmente los programadores; permite expresar las instrucciones en 'codigos nemotecnicos', 
que son algo mas inteligibles que los codigos de maquina. 

Para convertir un numero hexadecimal en binario, lo primero que hay que hacer es observar el 
primer dfgito, para ver cuantos grupos de '16' hay en el numero, multiplicar por 16 y luego 
sumar al resultado el valor del segundo digito. Asi pues, no se deje llevar por la tentacion de 
pensar que &D6 es I 3 + 6, ni 136, porque en realidad es (13 x 1 6) + (6) = 2 1 4. 

El proceso es el mismo que seguimos cuando leemos un numero decimal: 89 =(8 x 10)+ 9. Lo 
que ocurre es que nos resulta mucho mas facil multiplicar por 10 que por 16; es una cuestion de 
practica. 

Si usted ha conseguido llegar hasta aquf sin estar demasiado confuso, puede decir que esta en el 
buen camino para llegar a entender los principios basicos del ordenador. Quiza se pregunte para 
que nos metemos en todas estas complicaciones, y tiene razon. Un ordenador es un aparato que 
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maneja ideas y conceptos muy sencillos; lo que tiene de especial es que realiza esas operaciones 
a una velocidad muy grande (millones de veces por segundo) y que tiene una enorme capacidad 
para recordar los datos, tanto los que se le han suministrado como los resultados intermedios de 
los muchos miles de sumas que realiza antes de poder dar la respuesta final. 

Si desea seguir estudiando la teorfa de los ordenadores, sepa que hay miles de libros dedicados a 
estos temas. Algunos no le aclararan en absoluto las ideas, sino todo lo contrario, pero otros en 
cambio le guiaran en el descubrimiento de la sencillez y las relaciones fundamentals que existen 
entre los sistemas de numeracion y le ayudaran a comprender la forma en que el ordenador los 
maneja. 
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Parte 2: Mas en concreto sobre el CPC6128 

En esta seccion vamos a tratar algunas cuestiones especfficas del CPC6 1 28. La informacion 
basica sobre estos temas se puede encontrar en el 'Curso de introduccion' y en el capitulo 
titulado 'Lista completa de las palabras clave del BASIC de Amstrad'. 

Temas tratados en esta seccion: 

* Juegos de caracteres 

* ASCII 

* Variables 

* Logica 

* Caracteres definidos por el usuario 

* Formatos de escritura 

* Ventanas 

* Interrupciones 

* Datos 

* Sonido 

* Graficos 

* Utilizacion del segundo banco de 64K de RAM 

Caracteres 

Cuando se ponga al teclado de su CPC6I28, no de por supuesto que en la pantalla vayan a 
aparecer letras y numeros reconocibles. Ya hemos explicado que el ordenador no es una 
maquina de escribir. Lo que usted hace es pulsar una serie de conmutadores electricos; las 
senales electricas asf producidas son traducidas por los circuitos internos para enviar a la pantalla 
grupos de puntos. Segun sea la colocacion de esos puntos, podremos reconocer letras, numeros 
u otros caracteres del 'juego del caracteres' del CPC6 1 28. 

Algunos de estos caracteres no son accesibles directamente a traves del teclado, sino mediante 
la instruccion PRINT CHR$(<numero>). Esto es asi porque la informacion se almacena en el 
ordenador en unidades de I byte y, como vimos en la parte I de este capftulo, I byte puede 
tener 256 formas posibles. Dado que el ordenador tiene que dedicar al menos un byte a cada 
caracter almacenado, mas vale que aprovechemos las 256 combinaciones posibles en lugar de 
conformarnos con los 96 'caracteres estandar' de las maquinas de escribir y desperdiciar los 1 60 
restantes. 

Los caracteres estandar son un subconjunto del juego total de caracteres. Su nombre en 
informatica es 'caracteres ASCII', termino derivado de American Standard Code for Information 
Interchange' (codigo estandar norteamericano para el intercambio de la informacion). Se trata de 
un sistema disehado para asegurar la compatibilidad de los datos transmitidos de un ordenador a 
otro. En el capftulo 7 hemos dado la lista de todos los caracteres ASCII, asf como de los demas 
caracteres disponibles en el CPC6 1 28, junto a sus numeros de codigo. 

Vamos a verlos 

Seguramente ya no encierra ningun secreto para usted un programa tan sencillo como. este: 
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10 FOR n=32 TO 255 
20 PRINT CHR$(n); 
30 NEXT 

con el que hacemos que el ordenador exhiba en la pantalla el juego completo de caracteres. 
Pero estudiemos un poco la esencia de este programa. 

Lo primero que debemos observar es que al ordenador no le hemos dicho PRINT 
"abcdefghijklmn . . . ", sino PRINT CHR$(n). En vez de mencionar explfcitamente los caracteres 
hemos puesto en su lugar una 'variable'. Una variable es un elemento de informacion que varfa 
segun impongan las instrucciones del programa. (El nombre que hemos dado a la variable en 
este caso, n, es arbitrario; podrfamos haber puesto cualquier letra o combinacion de letras, 
cualquier cosa que no fuera una palabra reservada de BASIC.) 

iComo sabemos que es una variable? 

Un numero tal como el 5 es fijo, esta entre el 4 y el 6 y no tiene nada de variable. El caracter n 
tambien es fijo: es una letra concreta del alfabeto. 

Entonces, icomo distingue el ordenador las variables de las constantes? Si hubieramos querido 
decirle que considerara la n como letra del alfabeto, la habrfamos escrito entre comillas: "n". El 
ordenador habrfa respondido con el mensaje Syntax error, porque no entenderfa la Ifnea FOR 
"n"=32T0 255. 

Al escribir la n sin comillas le hemos dicho al ordenador que n es una variable. La instruccion 
FOR de BASIC tiene que ir seguida del nombre de una variable, y el ordenador da por supuesto 
que lo que pongamos despues de FOR es una variable. 

Tambien le hemos dicho al ordenador n = 32 TO 255, con lo que hemos especificado el margen 
de variacion de la variable: una sucesion que empieza en 32 y termina en 255. 

Una vez declarada la variable, debemos decirle al ordenador que tiene que hacer con ella; eso es 
lo que hace la linea 20: 

20 PRINT CHR$(n); 

Esta instruccion hace que el ordenador, cualquiera que sea el valor de n, busque en su memoria 
el caracter que corresponde a ese valor y lo escriba en la pantalla. 

El punto y coma impide que el ordenador realice un retorno de carro y avance de Ifnea despues 
de escribir cada caracter. (De no ser asf, los caracteres aparecerfan uno debajo de otro en la 
primera columna de cada Ifnea.) 

La Ifnea 30 le dice al ordenador que cuando haya concluido la tarea con el primer valor de n (que 
es el 32) debe retornar a la Ifnea en la que esta FOR y volver a hacer lo mismo con el siguiente 
(NEXT) valor de la variable n. Este mecanismo, denominado 'bucle', es fundamental para la 
programacion. Gracias a el nos ahorramos el tener que escribir largas series de instrucciones 
similares. Usted aprendera enseguida a incluirlo en sus programas. 

Cuando el bucle FOR ... NEXT alcanza el Ifmite superior del margen declarado (255), el bucle 
termina y el ordenador vuelve al modo directo y muestra el mensaje Ready. Este mensaje indica 
que el ordenador esta preparado para recibir mas instrucciones, una de las cuales podrfa ser 
RUN, para ejecutar otra vez el programa. El programa esta almacenado en la memoria y lo 
seguira estando hasta que le digamos al ordenador que lo borre o apaguemos la maquina. 

Este programa ilustra un hecho esencial de la informatica: todo lo que el ordenador hace esta 
relacionado con numeros. El ordenador ha escrito el alfabeto y todos los demas caracteres 
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usando como referenda para acceder a ellos un numero. Cuando usted pulsa la tecla A, no le 
esta pidiendo al ordenador que escriba esa letra, sino que busque en su memoria la informacion 
numerica que necesita para exhibir el caracter en la pantalla. La localizacion de esa informacion 
es funcion del codigo numerico que se activa al pulsar la tecla. (Cada caracter tiene un codigo 
asociado; la relacion completa se da en el capftulo titulado 'Para su referenda ... '.) 

Pero tampoco el hecho de visualizar el caracter tiene nada que ver con 'escribir', sino que es un 
proceso numerico. 

Por ejemplo, el codigo ASCII de la letra A es el 65. El ordenador tampoco entiende el numero 
65, por lo que tiene que traducirlo de decimal a una forma que le resulte mas familiar: el codigo 
de maquina. Ya hemos estudiado los principios de esta conversion en la primera parte de este 
capftulo. 

Al principio, la conversion de la notacion decimal, a la que estamos tan acostumbrados, a 
notacion hexadecimal nos parece muy diffcil. Pensar en numeros decimales nos parece tan 
natural que cambiar de sistema de numeracion es como cambiar de mano el tenedor y el 
cuchillo. 

Para manejar la notacion hexadecimal es necesario adquirir cierto grado de destreza mental. 
Una vez adquirida, se empieza a entender el por que de muchos hechos informaticos y se hace 
patente la elegancia de la estructura de este sistema de numeracion. 

Si no conoce los sistemas binario y hexadecimal, le sugerimos que lea detenidamente la primera 
parte de este capftulo. 

Cuando el ordenador ha convertido la pulsacion de la tecla A en un numero comprensible para 
el, busca en una zona de la memoria especificada por ese numero, y en ella encuentra otra serie 
de numeros que describen la forma de la letra. El caracter que usted puede ver en la pantalla 
esta formado por un bloque de datos, almacenado en la memoria en forma de 'matriz' numerica: 



— — _ i — — — 

_ ^_ _ _, ™_ — . _ ^ 



— _ _-, _ _ —. i»*d _ 



mm 

-JIM* 

■Mil 

IflFHi m" 





MATRIZ EN BLANCO 
(RETICULA) 



a MINUSCULA 



A MAYClSCULA 



Los elementos de la matriz son puntos dispuestos en filas columnas. El caracter se 'escribe' 
encendiendo y apagando correctamente los puntos. En el CPC6 1 28 cada matriz tiene 8 filas y 8 
columnas. Si entre los 255 caracteres no encuentra el que necesita, usted mismo puede definirlo 
a su gusto con la instruccion SYMBOL que describiremos mas adelante. 

Los caracteres 'definidos por el usuario' se construyen especificando cada uno de los 64 puntos 
de la matriz. Las combinaciones posibles con 1 .84467E +19, es decir, aproximadamente un 2 
seguido de 1 9 ceros. Si a esto ahadimos la posibilidad de agrupar caracteres para formar bloques 
mas grandes, vemos que las posibilidades de generar graficos solo estan limitadas por la 
imaginacion del usuario. 

Logica 

Una diferencia fundamental entre una calculadora y un ordenador radica en la capacidad de este 
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para manejar operaciones logicas y tomar decisiones en instrucciones del tipo IF THEN (si ... 
entonces ...). Para ello, los operadores logicos tratan los valores a los que son aplicados como 
grupos de bits y examinan y modifican los bits uno a uno. No es facil describir las operaciones 
logicas sin antes dar unas definiciones concisas. 

Las dos mitades de una expresion logica son los 'argumentos'. Una expresion logica tiene la 
siguiente forma: 

(argumento)) [(operador logico) (argumento) )] 

donde (argumento) puede ser: 

NOT (argumento) 
(expresion numerica) 
(expresion de relacion) 
((expresion logica)) 

Los dos argumentos de un operador logico tienen que ser enteros; de lo contrario se produce el 
error numero 6. 

Los operadores logicos (en orden de prioridad) y su efecto sobre los bits son los siguientes: 

AND El resultado es a menos que los bits de los dos argumentos sean 1. 

OR El resultado es 1 a menos que los bits de los dos argumentos sean 0. 

XOR El resultado es 1 a menos que los bits de los dos argumentos sean iguales. 

AND es el operador logico mas utilizado. 
PRINT 10 AND 10 

da como resultado 10. 
PRINT 10 AND 12 

da como resultado 8. 

PRINT 10 AND 1000 

tambien da como resultado 8. 

Esto se debe a que los numeros 1 y 1 000 nan sido convertidos a su forma binaria: 

1010 
1111101000 

La operacion AND comprueba los bits dos a dos. Si los dos bits de las dos filas son I , el 
resultado es I : 

0000001000 

y este numero binario es el 8 decimal. El operador logico AND se utiliza para detectar cuando se 
cumplen simultaneamente dos condiciones. He aquf un ejemplo que explica como: 

10 INPUT "Dia del mes: ",dia 

20 INPUT "Mes numero: ",mes 

30 IF dia=25 AND mes=12 THEN 50 

40 CLS:G0T0 10 

50 PRINT "Feliz Navidad!" 
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OR funciona de forma analoga, pero da como resultado I a no ser que los bits de los dos 
operandos sean 0, en cuyo caso el resultado es 0. Aplicado a los mismos numeros que en el 
ejemplo de AND, 

PRINT 1000 OR 10 
1002 

Bit a bit: 

1010 
1111101000 

cuyo resultado es 

1111101010 

Un programa ejemplo: 

10 CLS 

20 INPUT "Mes numero: ",mes 

30 IF mes=12 OR mes=l OR mes=2 THEN 50 

40 GOTO 10 

50 PRINT "Estamos en invierno!" 

El operador NOT invierte todos los bits del argumento (convierte el en I , y viceversa): 

10 CLS 

20 INPUT "Mes numero: ",mes 

30 IF N0T(mes=6 OR mes=7 OR mes=8) THEN 50 

40 GOTO 10 

50 PRINT "No estamos en verano!" 

Observe que se pueden combinar los operadores logicos, sin mas limitacion que la longitud de la 
linea: 

10 INPUT "Dia del mes: ",dia 

20 INPUT "Mes numero: ",mes 

30 IF N0T(mes=12 OR mes=l) AND dia=29 THEN 50 

40 CLS: GOTO 10 

50 PRINT "No es ni diciembre ni enero, pero puede ser un ano bisiesto" 

El resultado de una expresion de relacion es - 1 o 0. La representacion binaria del numero - 1 es 
una sucesion de bits iguales a I ; para el 0, todos los bits son 0. El resultado de una operacion 
logica entre argumentos de este tipo da - 1 (verdadero) o (falso). 

Anada las siguientes Ifneas al programa anterior: 

60 PRINT N0T(mes=12 OR mes=l) 
70 PRINT (mes=12 OR mes=l) 

Si al ejecutar el programa introduce 29 para el dfa y 2 para el mes, obtendra el mensaje de la 
linea 50, y las Ifneas 60 y 70 escribiran los resultados de las operaciones. 

Finalmente, XOR (OR eXclusivo) produce como resultado 'verdadero' siempre que los 
argumentos sean diferentes. 

A continuacion resumimos todo lo dicho en una tabla, denominada tabla de verdad. Es una 
forma muy clara de ilustrar que sucede en una operacion logica bit a bit. 
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Argumento A 1010 

Argumento B 0110 

Resultado de AND 0010 
Resultado de OR 1110 
Resultado de XOR 1100 



Caracteres deflnidos por el usuario 

Una de las primeras aplicaciones que el lector encontrara para los numeros binarios es el diseno 
de caracteres con la instruccion SYMBOL. Como sabemos, el caracter se disena en una reticula 
de 8 por 8; cada una de las 8 filas se convierte en un numero binario poniendo un I en lugar del 
pixel que debe ser iluminado, y un cero en lugar del pixel que debe quedar del color del papel. 
Los 8 numeros asf obtenidos seran los parametros de SYMBOL. Por ejemplo, para definir un 
caracter que representa una casa: 

* = 00001000 = L0S = 

**** = 00111100 = &3C ■ 

* * = 01000010 = 1*42 - 

* * * * = 10100101 = kA5 = 128 

* * = 10000001 = &81 = 128 
*****= 10110101 = &B5 = 128 

* ** * = 10110001 = ScBl = 128 
******** ■ 11111111 « &FF = 128+64+32+16+8+4+2+1 - 255 

la orden es 

SYMBOL 240,8,60,66,165,129,181,177,255 





8 


= 


8 


32+16*8+4 


= 


60 


64 


+2 


= 


66 


+32 


+4 +1 


= 


163 




+ 1 


= 


129 


+32+16 


+4 +1 


= 


181 


+32+16 


+ 1 


= 


177 



o bien 



SYMBOL 240, &08, &3C, &42, &A5, &81, &B5, &B1, &FF 

o bien 

SYMBOL 240, &X00001000, &X00111100, &X01000010, &X10100101 
&X10000001, &X10110101, &X10110001, &X11111111 

Para escribir el caracter asf definido: 
PRINT CHR$ (240) 

Finalmente, para agrupar caracteres se puede hacer 

adosado$=CHR$ (240) +CHR$ (240) 
PRINT adosado$ 



o bien 



urbanizacion$=STRING$ (15,240) 
PRINT urbanizacion$ 



La imprenta ... 

PRINT es la primera instruccion que se usa cuando se empieza a programar. En principio es muy 
sencilla, pero podemos complicarla considerablemente. En efecto, no basta con pedirle al 
ordenador que escriba, sino que tambien debemos decirle donde y como. 
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Formato de escritura 

La instruccion PRINT se puede utilizar de diversas formas. La mas sencilla es poner a su derecha 
el elemento que se desea escribir, que puede ser un numero, una cadena literal o el nombre de 
una variable: 

PRINT 3 

3 

PRINT "Hoi a" 
Hoi a 

a=5 
PRINT a 

5 

a$="Prueba" 
PRINT a$ 
Prueba 

En una instruccion PRINT se pueden poner varios elementos, intercalando entre ellos un 
separador, o bien TAB o SPC. Los separadores pueden ser la coma o el punto y coma. El punto 
y coma hace que el siguiente elemento se escriba inmediatamente a continuacion del que se 
acaba de escribir; la coma provoca el salto a la siguiente zona de escritura. La anchura implfcita 
de la zona de escritura es 1 3, pero se la puede modificar con la orden ZONE: 

PRINT 3;-4;5 
3-4 5 

PRINT "buenos'V'dias" 
buenos dias 

PRINT 3,-4,5 
3-4 5 

ZONE 4 

PRINT 3,-4,5 
3-4 5 

Observe que los numeros positivos llevan un espacio a la izquierda, mientras que en los 
negativos ese espacio esta ocupado por el signo - . Todos los numeros llevan un espacio en 
bianco a la derecha. Las cadenas se escriben literalmente tal como estan entre las comillas. 

La funcion SPC Neva como parametro una funcion numerica; 'escribe' tantos espacios como 
indique el valor de la expresion. Si el valor es negativo, se toma el 0; si es mayor que la anchura 
de la ventana actual se toma esa anchura: 

PRINT SPC(5)"hola" 
Hoi a 

x=3 

PRINT SPC(x*3)"hola" 
Hoi a 

TAB es similar, pero el numero de espacios que escribe es el necesario para que el siguiente 
elemento se empiece a escribir en la columna especificada. 
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La ventana en la que se escribe es la numero 0, a no ser que se especifique otro numero de 
canal (#) antes de la lista de elementos. Se pueden especificar otros canales para enviar la salida 
a otras ventanas. Los canales 8 y 9 estan reservados para la impresora y el disco (o cinta), 
respectivamente. (Observese que para 'escribir' en el canal #9 se debe utilizar WRITE en lugar 
de PRINT.) 

"hoi a" 

- ventana 1 



- tambien ventana 1 



PRINT 


"ho 


la" 


hola 






PRINT 


#0, 


"hola" 


hola 






PRINT 


#4, 


"hola" 


hola 







- ventana 4 

(primera lTnea de la pantalla) 



PRINT #8, "hoi a" 

hola - en la impresora 

(si esta conectada) 

Con TAB y SPC se pueden controlar los formatos mas sencillos, pero en cuanto el formato 
deseado sea un poco mas complejo habra que utilizar PRINT USING y una 'plantilla' adecuada. 
Una plantilla de formato es una expresion literal que contiene caracteres especiales, cada uno de 
los cuales especifica un formato determinado. Estos caracteres, denominados 'especificadores de 
formato', estan explicados en detalle en la descripcion de PRINT USING (capitulo 3). Aqui 
vamos a dar algunos ejemplos. 

En primer lugar, he aquf los formatos disponibles para escribir cadenas literales: 

" " escribe tantos caracteres como espacios haya en la plantilla, mas dos: 

PRINT USING " "; "cadena de prueba" 

cadena d 

"!" escribe solamente el primer caracter de la cadena: 
PRINT USING "!"; "cadena de prueba" 



Pero el formato literal mas util es seguramente "&". Con el se anula una funcion de BASIC por la 
cual, si una cadena es demasiado larga como para caber en la Ifnea actual, el ordenador la escribe 
al principio de la Ifnea siguiente. PRINT USING "&"; desactiva esa funcion. (En el siguiente 
ejemplo ponga BORDER para hacer visibles los bordes del papel.) 

MODE 1: LOCATE 39,1: PRINT "demasiado" 

- 1 inea 1 
demasiado - linea 2 

MODE 1: LOCATE 39, 1: PRINT USING "&"; "demasiado" 

de - 1 inea 1 
masiado - linea 2 

Para los numeros se dispone de gran variedad de plantillas. La mas sencilla es PRINT USING 
"#####", en la que cada # reserva espacio para un dfgito: 

PRINT USING "######"; 123 
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123 

La posicion del punto decimal se puede especificar incluyendo un punto en la plantilla: 

PRINT USING "####. #####";12. 45 
12.45000 

Los digitos que quedan a la izquierda del punto decimal se pueden agrupar de tres en tres, 
separados por comas, si se pone una coma a la izquierda del punto en la plantilla: 

PRINT USING "########,. ####" ; 123456 . 78 
123,456.7800 

En el formato se pueden incluir los signos de dolar y de peseta (libra esterlina en las versiones 
inglesas del CPC), para que aparezca siempre el signo monetario antes del primer dfgito, aunque 
el numero no llene el formato. Esto se consigue poniendo $$ o PtPt en la plantilla: 

PRINT USING "$$##" ;7 

$7 

PRINT USING "$$##" ;351 
$351 

PRINT USING "PtPt####,.##";1234.567 
Ptl.234.57 

Observe como se ha redondeado este ultimo numero. 

Se puede rellenar el espacio sobrante por la izquierda con asteriscos poniendo ** en la plantilla: 
PRINT USING "**####. #";12. 22 

Esto ultimo se puede combinar con los signos monetarios poniendo * *$ o * *R en la plantilla. 

Un signo + al principio de la plantilla especifica que siempre se debe escribir el signo del numero 
a su izquierda. Si el + esta al final de la plantilla, el signo se describe a la derecha del numero. 

El signo - solo se puede poner al final de la plantilla; especifica que se debe poner el signo - a la 
derecha del numero si este es negative 



PRINT 


USING 


"+##"; 12 


+12 






PRINT 


USING 


"+##";-12 


-12 






PRINT 


USING 


"##+"; 12 


12+ 






PRINT 


USING 


"##-";-12 


12- 






PRINT 


USING 


"##-"; 12 


12 







La inclusion de "Tt TT" en la plantilla hace que el numero se escriba en forma exponencial: 
PRINT USING "###.#iT~~";123.45 
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12.35E+01 

En cualquier caso, si el numero es demasiado grande como para caber en el formato 
especificado, el numero no se trunca, sino que se lo escribe entero, precedido de un signo % 
para indicar lo que ha ocurrido: 

PRINT USING "####"; 123456 
%123456 



Ventanas 

El BASIC del CPC6 1 28 permite la definicion y el control de hasta ocho ventanas de texto. Todas 
las acciones de control de textos se pueden referir a cualquiera de estas ventanas. 

Las ventanas se definen con la orden WINDOW, que va seguida de 5 parametros. El primero es 
opcional y especifica el numero de la ventana que se va a definir; si se lo omite, el ordenador 
supone el 0, que es el canal por el que el BASIC emite sus mensajes normales (Ready, errores, 
etc.). Antes del numero se pone el signo # para indicar que se esta dando un numero de canal. 
Los otros cuatro parametros especifican los extremos izquierdo, derecho, superior e inferior de 
la ventana. Como son numeros de fila y de columna, pueden estar comprendidos entre I y 80 
los dos primeros, y entre I y 25 los dos ultimos. 

El siguiente ejemplo define la ventana (canal) numero 4, la cual se extiende desde la columna 7 
hasta la 3 1 , y desde la fila 6 hasta la 1 8. Reinicialice la maquina y luego escriba: 

WINDOW #4,7,31,6,18 

No parece que haya ocurrido nada, asf que escriba lo siguiente: 

INK 3,9 
PAPER #4,3 
CLS #4 

En la pantalla ha aparecido un gran rectangulo verde, que es la ventana numero 4. Este ultimo 
ejemplo demuestra que las instrucciones PAPER y CLS se pueden referir a cualquiera de las 
ocho ventanas especificando el numero de canal; su omision hace que la orden actue sobre la 
ventana numero 0. 

Las ordenes para las que se puede especificar numero de ventana son las siguientes: 

CLS 

C0PYCHR$ 

INPUT 

LINE INPUT 

LIST 

LOCATE 

PAPER 

PEN 

POS 

PRINT 

TAG 

TAGOFF 

VPOS 

WINDOW 

WRITE 

La ventana verde que hemos creado habra borrado parte del texto que teniamos en la pantalla, 
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que habia sido enviado a la ventana numero 0. 

El texto se puede escribir en cualquier ventana especificando el numero de canal en la 
instruccion PRINT: 

PRINT #4, "estoy en la ventana 4" 

Estas palabras nan aparecido en el extreme* superior de la ventana verde, no en la linea siguiente 
de la pantalla, que es lo que habrfa ocurrido con: 

PRINT "estoy en la ventana 0" 

Observe que al escribir esta ultima orden el texto ha invadido parte de la ventana verde. 

Si usted desea confinar todos los mensajes de BASIC a la ventana numero 4, intercambiela con la 
implicita (la numero 0) mediante la orden: 

WINDOW SWAP 0,4 

El mensaje Ready ha aparecido ahora en la ventana verde y el cursor esta debajo de el. Escriba lo 
siguiente: 

PRINT #4, "estoy en la ventana 4" 

El texto ha aparecido debajo de la orden WINDOW SWAP, en lo que antes era la ventana y 
ahora es la 4. Estos ejemplos demuestran que el ordenador recuerda la posicion de escritura de 
cada ventana incluso despues de un intercambio. Escriba lo siguiente: 

LOCATE #4,20,1 

PRINT "estoy en la ventana 0" 

PRINT #4, "estoy en la ventana 4" 

Mientras no se ejecuta una orden WINDOW, todas las ocho ventanas coinciden con la pantalla 
entera. Lo mismo ocurre despues de una orden MODE. Asf pues, si despues de jugar con las 
ventanas se encuentra con que el cursor esta en una muy pequeha, puede salir del lio 
escribiendo MODE I : 

MODE 1 

WINDOW 20,21,7,18 

M0 

DE 

1 

El ordenador se ha visto obligado a partir la palabra MODE, pero la instruccion funciona igual. 
(No olvide dejar un espacio entre la E y el I .) 

Ahora que ya tiene una idea de como funcionan las ventanas, escriba y pruebe el siguiente 
programa: 

10 MODE 

20 FOR n=0 TO 7 

30 WINDOW #n,n+l,n+6,n+l,n+6 

40 PAPER #n,n+4 

50 CLS #n 

60 FOR c=l TO 200: NEXT c 

70 NEXT n 

Este programa crea 8 ventanas que se solapan y las borra con 
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un color de papel diferente para cada una. 

Cuando termine el programa y haya aparecido Ready, pulse [RETURN] varias veces para 
observar como afecta el desplazamiento de la ventana a los bloques de colores. Sin embargo, 
aunque el contenido de las ventanas se desplace, las ventanas en sf siguen estando en el mismo 
sitio. Compruebelo escribiendo: 

CLS #4 

Fijese tambien en los diferentes efectos de las siguientes ordenes: 

LIST 
LIST #4 
LIST #3 

Otra caracteristica interesante de la orden WINDOW es que tambien admite los numeros que 
especifican los bordes izquierdo y derecho en orden inverso; es decir, aunque el primer 
parametro sea mayor que el segundo, BASIC los interpreta en el orden correcto. Analogamente 
ocurre con los bordes inferior y superior. 

10 MODE 

20 a=l+RND*19:b=l+RND*19 

30 c=l+RND*24:d=l+RND*24 

40 e=RND*15 

50 WINDOW a,b,c,d 

60 PAPER e:CLS 

70 GOTO 20 

Interrupciones 

Por si todavia no lo ha leido en otro lugar de este manual, le diremos que una de las principales 
innovaciones del software de los ordenadores Amstrad es su capacidad de gestion de las 
interrupciones desde BASIC; esto hace que el BASIC de Amstrad sea capaz de realizar acciones 
simultaneas controladas por programa. Esto es lo que se suele denominar 'multitarea', y se 
programa con las instrucciones AFTER y EVERY. 

Esta misma habilidad queda demostrada por la forma en que se controla el sonido a traves de 
recursos tales como las colas de sonido y la sincronizacion de canales. 

De todo lo que tenga que ver con la medida del tiempo se encarga el cronometro patron del 
sistema, que es un circuito controlado por un cristal de cuarzo. Este reloj se encarga de 
cronometrar y de sincronizar los procesos que tienen lugar dentro del ordenador: desde el 
barrido de la pantalla hasta al envfo de impulsos al microprocesador. Toda funcion del hardware 
que tenga que ver con el tiempo depende del reloj patron. 

Las instrucciones AFTER (despues de) y EVERY (cada) hacen precisamente lo que su nombre 
sugiere. Asf, AFTER invoca una determinada subrutina cuando ha transcurrido el tiempo 
especificado. 

El CPC6 1 28 mantiene un reloj de tiempo real. La orden AFTER permite que un programa de 
BASIC realice una tarea en un instante futuro especificado. Existen cuatro temporizadores de 
retardo, cada uno de los cuales puede tener una subrutina asociada. 

Cuando el tiempo especificado ha transcurrido, la rutina se ejecuta automaticamente, 
exactamente igual que si el ordenador hubiera encontrado un GOSUB en la Ifnea actual del 
programa. Cuando la rutina se acaba, con el RETURN habitual, el programa continua a partir del 
punto en que fue interrumpido. 
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La orden EVERY permite que el programa de BASIC ejecute subrutinas a intervalos de tiempo 
regulares. Tambien en este caso se dispone de cuatro temporizadores, a cada uno de los cuales 
se puede asignar una subrutina distinta. 

Los temporizadores tienen prioridades de interrupcion diferentes, lo que tiene importancia 
cuando varios de ellos compiten por interrumpir el programa en un momento dado. El 
temporizador 3 tiene la maxima prioridad, y el la minima (vease el capftulo 'Para su refe- 
renda... '). 

10 MODE l:n=14:x=RND*400 

20 AFTER x,3 GOSUB 90 

30 EVERY 25,2 GOSUB 170 

40 EVERY 10,1 GOSUB 180 

50 PRINT"Pruebe sus reflejos:" 

60 PRINT"pulse la barra espaciadora" 

70 PRINTcuando yo le diga." 

80 IF ind-1 THEN END ELSE 80 

90 x=REMAIN(2) 

100 IF INKEY(47)=-1 THEN 120 

110 SOUND 1,900: PRINT"Tramposo!":G0T0 160 

120 SOUND 129,20:PRINT"AH0RA":t=TIME 

130 IF INKEY(47)=-1 THEN 130 140 PRINT"Ha tardado"; 

150 PRINT(TIME-t)/300;"segundos" 

160 CLEAR INPUT: ind=l: RETURN 

170 SOUND 1,0,50:PRINT".";:RETURN 

180 n=n+l:IF n>26 THEN n-14 

190 INK l,n: RETURN 

Las ordenes AFTER y EVERY se pueden ejecutar en cualquier lugar del programa. Su efecto es 
reelegir la rutina asociada y poner a cero el temporizador correspondiente. Los temporizadores 
estan compartidos por AFTER y EVERY, de modo que una orden AFTER cancela la anterior 
EVERY referida al mismo temporizador, y viceversa. 

Las ordenes Dl y El inhiben y habilitan, respectivamente, las interrupciones. Esto sirve para 
permitir que cierta interrupcion se procese sin ser interrumpida por otra mas prioritaria. La 
orden REMAIN da el tiempo que queda en un temporizador y lo desactiva. 

Listas de datos 

Si un programa necesita que se le suministre siempre la misma informacion cada vez que se lo 
ejecuta, es preferible hacer que esa informacion este contenida en el propio programa para no 
tener que teclearla con cada ejecucion. Esto es posible gracias al par de instrucciones 
READ/DATA. La orden READ es similar a INPUT en el sentido de que asigna valores a variables, 
pero en lugar de captar los valores por el teclado los lee en listas encabezadas por la palabra 
DATA. Los dos ejemplos siguientes ilustran la diferencia: 

10 INPUT "escriba 3 numeros separados por comas: ",a,b,c 

20 PRINFlos numeros son";a;"y";b;"y";c 

run 

10 READ a,b,c 

20 PRINFlos numeros son";a;"y";b;"y";c 

30 DATA 12,14,21 

run 
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Los datos contenidos en las listas DATA van separados por comas, lo mismo que los que se 
teclean en respuesta a una instruccion INPUT. 

Las listas DATA pueden contener, no solo numeros, sino tambien cadenas literales constantes: 

10 DIM a$(ll) 

20 FOR 1-0 TO 11 

30 READ a$(i) 

40 NEXT 

50 FOR 1-0 TO 11 

60 PRINT a$(i);" "; 

70 NEXT 

80 DATA Cuentan,de,un,sabio,que,un,dia,tan,pobre,y,misero,estaba 

run 

Observe que no es necesario encerrar entre comillas las cadenas que se ponen en las listas 
DATA. Las comillas en este caso son opcionales (tambien lo son en INPUT). El unico caso en 
que son necesarias es cuando una cadena contiene una coma; si no se la pusiera entre comillas, 
la instruccion READ se detendrfa en la coma y no leerfa el resto de la cadena. 

10 READ a$ 

20 WHILE a$<>"*" 

30 PRINT a$ 

40 READ a$ 

50 WEND 

60 DATA los dlas de la semana son limes, martes, miercoles, jueves, viernes y 

sabado 
70 DATA "los dlas de la semana son limes, martes, miercoles, jueves, viernes y 

sabado" 
80 DATA * 
run 

La cadena de la Ifnea 60 contiene comas, y por lo tanto cada tramo sera leido por READ y 
escrito por separado. En cambio, la de la linea 70 ha sido delimitada por comillas y READ la lee 
de una sola vez. 

El ejemplo anterior demuestra que los datos pueden estar distribuidos en varias lineas (60, 70, 
80, . . .). Otro detalle no tan evidente es que las Ifneas DATA pueden estar en cualquier lugar del 
programa, antes o despues de las instrucciones READ que leen la informacion. 

Si un programa contiene varias instrucciones READ, cada una continua leyendo donde termino la 
anterior: 

10 DATA 123,456,789,321,654,2343 

20 FOR i=l TO 5 

30 READ num 

40 total =total+num 

50 NEXT 

60 READ total 2 

70 IF total=total2 THEN PRINT "los datos son correctos" ELSE PRINT "hay un 

error en los datos" 
run 

Modifique uno de los primeros cinco numeros de la lista de la linea 10 y ejecute otra vez el 
programa. Esta tecnica de poner al final de la lista un dato adicional que sea la suma de los 
anteriores constituye un buen metodo de deteccion de errores en los datos, especialmente si los 
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datos son muchos. Se le llama 'suma de verificacion' (checksum). 

Si un programa requiere datos mixtos (cadenas y numeros), se los puede combinar en una 
misma lista DATA, a condicion de que READ los lea en el orden correcto. Por ejemplo, si una 
lista DATA contiene dos numeros seguidos de una cadena, la instruccion READ tendra que leer 
primero dos variables numericas y luego una literal: 

10 DIM a(5),b(5),s$(5) 

20 FOR i=l TO 5 

30 READ a(i),b(i),s$(i) 

40 NEXT 

50 DATA 1,7, Alfredo, 3,9, Juan, 2, 2, Enrique, 4, 6, Pedro, 9, 1, Manuel 

60 FOR i=l TO 5 

70 PRINT s$(i),":";a(i)*b(i) 

80 NEXT 

Tambien se pueden separar los datos en dos listas distintas: 

10 DIM a(5),b(5),s$(5) 

20 FOR i=l TO 5 

30 READ a(i),b(i) 

40 NEXT 

50 FOR i=l TO 5 

60 READ s$(i) 

70 NEXT 

80 DATA 1,7,3,9,2,2,4,6,9,1 

90 DATA Al fredo, Juan, Enrique, Pedro, Manuel 

100 FOR i=l TO 5 

110 PRINT s$(i),":";a(i)*b(i) 

120 NEXT 

Si ahora cambiamos el Ifmite superior de la Ifnea 20: 
20 FOR i=l TO 4 

los dos primeros intentos de leer cadenas daran '9' y 'V. Estos valores son cadenas validas, pero 
el programa no funciona como esperabamos. Una forma de asegurar que el programa funcione 
correctamente consiste en incluir las Ifneas: 

15 RESTORE 80 
45 RESTORE 90 

La orden RESTORE hace que el puntero de datos 'apunte' hacia el principio de la Ifnea 
especificada; por lo tanto se la puede incluir en una instruccion condicional para que el bloque de 
datos lefdos dependa del resultado de alguna comprobacion. Por ejemplo, en un juego que este 
previsto para varios niveles de destreza, los datos de cada nivel pueden ser seleccionados 
mediante una variable adecuada. Veamos un ejemplo: 

1000 REM seccion para dibujar la pantalla 

1010 IF nivel =1 THEN RESTORE 2010 

1020 IF nivel =2 THEN RESTORE 2510 

1030 IF nivel =3 THEN RESTORE 3010 

1040 FOR y-1 TO 25 

1050 FOR x-1 TO 40 

1060 READ car 

1070 LOCATE x,y: PRINT CHR$(car); 
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1080 NEXT x,y 

2000 REM DATA para pantalla 1 

2010 DATA 200,190,244,244,210, ... etc. 

2500 REM DATA para pantalla 2 

2510 DATA 100,103,245,243,251, ... etc. 

3000 REM DATA para pantalla 3 

3010 DATA 190,191,192,193,194, ... etc. 

Otra aplicacion tfpica de las instrucciones DATA/READ/RESTORE es un programa que 
interprete una melodia. Los periodos de tono se pueden poner en listas data; RESTORE puede 
hacer que se repita una seccion moviendo el puntero de datos hacia atras: 

10 FOR i=l TO 3 

20 RESTORE 100 

30 READ nota 

40 WHILE nota<>-l 

50 SOUND 1, nota, 35 

60 READ nota 

70 WEND 

80 NEXT 

90 SOUND 1,142,100 

100 DATA 95,95,142,127,119,106 

110 DATA 95,95,119,95,95,119,95 

120 DATA 95,142,119,142,179,119 

130 DATA 142,142,106,119,127,-1 

run 



El sonido de la musica 

De todas las instrucciones del CPC6 1 28, es posible que las de sonido y envolventes le parezcan 
las mas imponentes a primera vista. Y sin embargo, con un poco de practica, muy pronto podra 
programar ruidos de diversos tipos e incluso melodfas con armonia. 

Empecemos por analizar las cuatro primeras partes de la instruccion SOUND, que son las 
siguientes: situacion de canales, periodo de tono, duracion de la nota y volumen. Lo primero que 
hay que saber es en que margen de valores puede estar cada uno de estos parametros. 

Aplazaremos el primero de momento porque es el mas complicado. El segundo, periodo de 
tono, puede tener cualquier valor entero comprendido entre y 4095. Sin embargo solo 
algunos de estos valores producen notas reconocibles: son los que estan relacionados en la parte 
5 del capftulo 'Para su referenda... '. Por ejemplo, el numero 239 produce la nota DO media; el 
253 produce la nota SI inmediatamente anterior; los valores 240 a 252 producen cada uno un 
tono diferente, pero ninguno de ellos corresponde a la escala del piano. Si el parametro es 0, no 
se produce ningun tono; esto es util cuando se esta generando ruido. 

El tercer parametro de la orden SOUND especifica la duracion de la nota en unidades de 
centesimas de segundo. Su valor puede estar normalmente entre I y 32767. Si es 0, la duracion 
queda controlada por la 'envolvente' (de la que hablaremos mas adelante). Si el parametro es 
negativo, su valor absoluto indica cuantas veces se va a repetir la envolvente; por ejemplo, -3 
significa 'repetir la envolvente tres veces'. 

El cuarto parametro especifica el volumen. Puede valer entre y 1 5; el valor implfcito es 1 2, que 
es el que el ordenador supone si no se especifica otra cosa. En los sonidos sencillos que hemos 
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conocido hasta ahora, el volumen ha permanecido constante durante el tiempo en que ha 
sonado cada nota. Sin embargo, cuando se utiliza una 'envolvente de volumen' para hacer que 
este deje de ser constante, el parametro 'volumen' de SOUND se considera como volumen 
inicial de la nota. 

Bueno, vamos con el parametro de situacion de anales. Quiza sepa ya el lector que el significado 
de este parametro depende del valor de sus bits; para entenderlo necesitara saber algo acerca 
de los numeros binarios (parte I de este capftulo). 

El sonido se puede generar en tres canales distintos. Si el ordenador esta conectado a un 
amplificador estereofonico, un canal sera el derecho, otro el izquierdo y otro comun a ambos o 
central. Para especificar en que canal o canales debe sonar una nota se utilizan los siguientes 
numeros: 

• I canal A 

• 2 canal B 

• 4 canal C 

Para enviar el sonido a varios canales, se suman los numeros correspondientes. Por ejemplo, 
para que la nota suene en los canales A y C, el parametro debe ser I +4=5. 

SOUND 5,284 



Se preguntara el lector por que el numero del canal C es 4, y no 3. Observe que estos tres 
numeros son potencias de 2(1 =2 A 0, 2=2^ I, 4=2^2) y se combinan para dar un numero 
binario. Si imaginamos un numero binario de tres dfgitos, cada uno de ellos se puede utilizar para 
indicar si el canal correspondiente debe estar conectado o desconectado. En el ejemplo 
anterior, 5 en decimal es equivalente a 1*4+0*2+1*1, es decir, 101 en binario. Si a los digitos 
de este numero binario les ponemos las etiquetas C, B y A, tenemos 

C B A 

I I 

de forma que C y A estan conectados, mientras que B esta desconectado. Si quisieramos que la 
nota sonase en los canales A y B, el numero tendria que ser 

C B A 

I I 

En decimal: 0*4+ 1*2+ 1*1 =3. Laorden SOUND seria 

SOUND 3,142 



Naturalmente, este numero tiene que coincidir con el que se obtendria sumando los valores 
correspondientes a los dos canales: I +2 = 3 (recuerde que A= I , B=2, C=4). 

Si despues de todo no ha entendido como funciona esto en binario, no se preocupe. Le basta 
con saber que las combinaciones de canales se programan sumando los numeros de seleccion de 
los canales deseados. 

Lamentablemente (o afortunadamente, segun como se mire), todavfa podemos sumar otros 
numeros a este parametro. Asi, los numeros 8, 16 y 32 especifican que el sonido debe 
sincronizarse con otro canal (A, B o C, respectivamente). Ahora hace falta saber que es eso de 
'sincronizar con un canal'. Pues bien, los sonidos que hemos generado hasta ahora han ido 
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directamente al canal especificado. Escriba lo siguiente: 

SOUND 1,142,2000 
SOUND 1,90,200 

A menos que sea usted un mecanografo muy lento, habra tenido tiempo de escribir la segunda 
orden antes de que se extinguiera el primer sonido. Esto ocurre porque el sistema de sonido 
puede guardar hasta cinco ordenes en cada una de las colas de los tres canales. Si queremos que 
suene una nota por el canal A y luego dos notas simultaneamente en los canales A y B, 
necesitamos un forma de indicar al ordenador que no debe ejecutar la nota del canal B mientras 
no haya terminado la primera del A. En esto consiste la sincronizacion de canales. Hay dos 
formas de conseguirla: 

SOUND 1,200,1000 
SOUND 3,90,200 

En este ejemplo nemos dirigido la segunda nota a A y B, y por lo tanto no puede sonar mientras 
no haya concluido la primera. La limitacion de este metodo es que el sonido que se envfa a 
varios canales tiene que ser igual en todos ellos (en este caso, ,90,200 era igual para el A que 
para el B). El otro metodo es el siguiente: 

SOUND 1,200,2000 
SOUND 1+16,90,200 
SOUND 2+8,140,400 



Aquf hemos hecho que la segunda nota de A se sincronice con el sonido de B (y que este se 
sincronice con el canal A). La ventaja de este metodo es evidente: las notas sincronizadas 
pueden ser (y en este caso son) diferentes. Estos numeros de sincronizacion tambien son 
interpretables bit a bit: 

8=2^3, 16=2^4,32=2^5 

Asf, el numero de situacion de canales se puede considerar como numero binario cuyos digitos 
tienen el siguiente significado: 



Sincr. con 


Sincr. con 


Sincr. con 


Sonar en 


Sonar en 


Sonar en 


C 


B 


A 


C 


B 


A 


Sumar 32 


Sumar 16 


Sumar 8 


Sumar 4 


Sumar 2 


Sumar 1 



Por ejemplo, para hacer sonar una nota en el canal C sincronizado con el A: 









1 


1 









1 10 Este es el numero binario I 100, equivalente a 8+4 en decimal. 

Asf pues, el numero de situacion de canales 1 2 ordena a la maquina que haga sonar una nota en 
el canal C y que espere por una nota que debe sonar en el canal A y que ha sido marcada para 
sincronizarla con el C. 

Si ahora sumamos 64 (=2^6) al parametro, estamos indicando que la nota debe ser retenida. 
Esto significa que no va a sonar mientras no la liberemos con la orden RELEASE. 

Finalmente, si sumamos 1 28 (=2 ~ 7), borramos la cola de sonido del canal especificado. 
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Por ejemplo, si hemos ordenado un sonido que va a durar un buen rato, podemos anularlo 
borrando la cola del canal correspondiente: 

SOUND 1,248,30000 

(esta nota dura 5 minutos) 

SOUND 1+128,0 

(pero esta la detiene) 



Cuando se este en modo directo, la forma mas rapida de interrumpir un sonido es pulsar [DEL] 
al principio de la Ifnea; el pitido que asi se produce borra todas las colas de sonido. 

Ahora que ya sabemos enviar sonido a cualquier combinacion de canales (con sincronizacion, si 
es necesario), vamos a intentar producir algo mas agradable que los molestos pitidos que 
produce una orden SOUND en esta forma sencilla. Lo haremos dotando al sonido de una 
envolvente: una grafica que define como evoluciona la intensidad del sonido a lo largo del 
tiempo. Las notas producidas por los instrumentos musicales tienen una fase inicial de ataque en 
la que el volumen sube muy deprisa; despues se mantiene a un nivel algo inferior hasta que 
finalmente decae gradualmente a cero. En el ordenador se puede dar una envolvente de este 
tipo a las notas producidas por la orden SOUND. La instruccion con la que se programa la 
envolvente es ENV. Veamos un ejemplo sencillo: 

ENV 1,5,3,4,5,-3,8 
SOUND 1,142,0,0,1 

La instruccion ENV se debe ejecutar antes que la SOUND que la utiliza. Para invocar una 
envolvente en una instruccion SOUND se pone como quinto parametro de este el numero de 
referenda de la envolvente, en este caso el I , que es el numero con que se la creo en la 
instruccion ENV. Los parametros de ENV describen tanto la duracion como el volumen de la 
nota, de modo que en SOUND podemos poner en lugar de los datos de duracion y volumen. 
La envolvente del ejemplo anterior hace que la nota crezca en 5 etapas, en cada una de las 
cuales el volumen aumenta en 3 unidades y cuya duracion es de 4 centesimas de segundo. 
Despues se especifica que el volumen debe decaer en 5 etapas, -3 unidades en cada una, siendo 
la duracion de cada etapa 8 centesimas de segundo. Es decir, el primer parametro de ENV es el 
numero de referenda de la envolvente y va seguido por grupos de tres numeros. Dentro de 
cada grupo, el primer parametro es el numero de escalones de variacion del volumen; el 
segundo, la amplitud de esos escalones; y el tercero, su duracion. La duracion total de cada 
seccion sera igual al producto del primer parametro (numero de escalones) por el tercero 
(duracion de cada escalon). El aumento o disminucion total del volumen es igual al producto del 
primer parametro por el segundo (variacion del volumen por escalon). La duracion total de una 
envolvente es la suma de las correspondientes a las secciones que la integran. 

En el ejemplo anterior, SOUND fijaba en el volumen inicial de la nota. Pero esto no tiene que 
ser necesariamente asf. En el siguiente ejemplo el volumen decrece desde el valor inicial 15 y 
luego vuelve a subir: 

ENV 2,5,-2,1,20,0,1,10,1,1 
SOUND 1,142,0,15,2 

El numero de esta envolvente es el 2. Consta de tres secciones. En la primera el volumen se 
reduce en 5 escalones de -2; es decir, varfa a traves de 5 etapas y en cada una se reduce en 2 
unidades. La duracion de cada etapa es de I centesima de segundo. La segunda seccion tiene 20 
etapas en las que no varia el volumen (0) y cada una de las cuales dura I centesima de segundo. 
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Finalmente, la tercera seccion consta de 10 etapas, con un incremento de volumen de I unidad y 
duracion de I centesima de segundo cada una. 

La instruccion SOUND especifica un volumen inicial de 15; al final de la primera seccion ha 
decrecido hasta 5; se mantiene a ese nivel durante 20 centesimas de segundo y luego vuelve a 
crecer hasta alcanzar el nivel 1 5. 

Para mejor visualizar y disehar la forma de las envolventes conviene dibujarlas en un papel 
milimetrado y leer en el los valores de los parametros requeridos. En las dos figuras siguientes 
mostramos las dos envolventes definidas hasta ahora: 



Varactti 
rrisbvl* 



NUMFHO nE fSCALONES: 5 
ALTUflA DE E5CALON: 3 
DUUACION DE ESCALON; i 
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* } NUMERO DE ESCAlOMES: a 

, ALTDHA Df E5CAL0H: D | 
*■ J DURACION D€ ESCALON: 1 



El maximo numero de secciones que se puede incluir en una envolvente es 5; como cada 
seccion requiere 3 parametros, la instruccion ENV puede llegar a tener 1 6 parametros en total, 
contando el primero, que indica cual de las 1 5 envolventes posibles se esta definiendo. Podemos 
imaginar los numeros de volumen como dispuestos en cfrculo; si vamos subiendo de nivel y 
sobrepasamos el 1 5, volvemos al 0; analogamente, si intentamos descender por debajo del 0, 
volvemos al 1 5. Por ejemplo, en 

ENV 3,9,5,20 
SOUND 1,142,0,0,3 

la envolvente consta de una sola seccion de 9 etapas, cada una de las cuales incrementa el 
volumen en 5 unidades y dura 20 centesimas de segundo. Al terminar la tercera etapa, el 
volumen ha subido de a 1 5; en la cuarta etapa volvera a 4; en la quinta a 9, etc. El proceso esta 
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ilustrado en la siguiente figura: 
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NUMERO Dt ESCALONES: S 
ALTUftA DC ESCALON: ■ 

DUHACI0N DE ESCALON: 2D 



El margen de valores para el numero de escalones es de a 1 27. En cada uno el valor puede 
variar entre - 1 28 y + 1 27 (los valores negativos representan disminucion). La duracion de cada 
escalon puede ser de entre y 255 (centesimas de segundo). 

Ya sabemos como variar el volumen de una nota. Ahora podemos estudiar como se define la 
variacion de su tono con el tiempo para producir efectos tales como el 'vibrato'. 

El metodo es muy parecido al de las envolventes de volumen. Las envolventes de tono se 
definen con la instruccion ENT. Por ejemplo: 

ENT 1,5,1,1,5,-1,1 
SOUND 1,142,10,15, ,1 

Las envolventes de tono se invocan con la instruccion SOUND poniendo en esta como sexto 
parametro el numero de referenda de la envolvente. La instruccion ENT tiene que ser ejecutada 
antes que la SOUND que la utiliza. 

Este primer ejemplo de ENT define la envolvente de tono numero I . La primera seccion consta 
de 5 etapas; en cada una el periodo de tono crece en I unidad; cada una dura I centesima de 
segundo. La segunda seccion consta de 5 etapas; la variacion del periodo de tono en cada una de 
ellas es - 1 (descenso); la duracion de cada etapa es de I centesima de segundo. La duracion total 
es, pues, 5+5 =10 centesimas de segundo. Observese que esta duracion ha sido especificada en 
SOUND, ya que la duracion de la envolvente de tono no determina la duracion de la nota 
(mientras que sf lo hace la envolvente de volumen). Si la duracion especificada en SOUND es 
menor que la de la envolvente, el final de esta se perdera. Si es mayor, el final de la nota se 
ejecutara a tono constante. Esto ultimo es tambien aplicable a las envolventes de volumen. 

(Notese la ausencia del numero de envolvente de volumen en la ultima instruccion SOUND, 
debida a que aun no nemos definido una envolvente de volumen para este sonido.) 

Las envolventes de tono normalmente duran menos que la nota. Se puede hacer que la 
envolvente se repita mientras la nota esta sonando. Para ello se especifica un numero de 
envolvente negativo, cuyo valor absoluto se cita en la instruccion SOUND: 

ENT -5,4,1,1,4,-1,1 
SOUND 1,142,100,12, ,5 
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Esta repeticion de la envolvente produce el efecto 'vibrato'. Cuando se disenan envolventes de 
tono, es conveniente que el tono vane simetricamente con respecto al valor inicial, de forma 
que al repetir la envolvente el tono no se desvfe demasiado con respecto al valor central. Pruebe 
el siguiente sonido: 

ENT -6,3,1,1 

SOUND 1,142,90, 12, ,6 

Habra observado que la frecuencia ha disminuido drasticamente. Esto ha ocurrido porque la 
envolvente impone un aumento del periodo de tono de 3 unidades y se repite 30 veces (90/3). 
No obstante, ese efecto se puede aprovechar para imitar trinos y sirenas: 

ENT -7,20,1,1,20,-1,1 
SOUND 1, 100, 400, 12,, 7 

ENT -8,60,-1,1,60,1,1 
SOUND 1,100,480, 12, ,8 

Se pueden definir hasta 15 envolventes de tono, con numeros de referenda del I al 15; los 
numeros negativos indican que la envolvente se repite. Para cada seccion, el numero de 
escalones puede estar entre y 239. La variacion del periodo de tono en cada escalon puede ser 
de entre - 1 28 y +1 27. La duracion de cada escalon puede ser de entre y 255 (centesimas de 
segundo). Cada envolvente puede tener hasta 5 secciones. 

El ultimo parametro que se puede incluir en la instruccion SOUND, el septimo, caracteriza el 
nivel de ruido que se ahade al sonido. Observese que solo hay un canal de ruido y que, por 
consiguiente, cada vez que se especifica un nivel de ruido se anula la anterior especificacion. 

El ruido se puede mezclar con un tono, pero tambien se lo puede programar por separado, para 
lo cual se debe poner un como periodo de tono en SOUND. Esto es util para imitar ruidos de 
percusion: 

ENT -3,2,1,1,2,-1,1 

ENV 9,15,1,1,15,-1,1 

FOR a-1 TO 10:S0UND 1,4000,0,0,9,3,15:NEXT 

Un ruido como este puede servir de base para imitar el de una locomotora. Observese que 
hemos combinado los dos tipos de envolvente y el ruido. En SOUND hemos puesto para los 
parametros de duracion y de volumen, por lo que estas caracterfsticas quedan controladas por 
las envolventes de volumen. 

Como ya estamos en condiciones de utilizar SOUND, ENV y ENT a plena potencia, vamos a 
estudiar algunas otras ordenes y funciones. 

Como el lector recordara, al describir el primer parametro de SOUND dijimos que si le 
sumabamos el numero 64 el sonido quedaba Yetenido' en la cola, y que no sonarfa mientras no 
lo liberasemos. La forma de liberarlo es ejecutar la orden RELEASE. Esta palabra va seguida de 
un numero cuyos bits determinan a que canales afecta la orden: 

• 4 significa canal C 

• 2 significa canal B 

• I significa canal A 

Los canales se combinan sumando los numeros correspondientes. Asf, para liberar el sonido de 
los tres canales la orden que se requiere es: 
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RELEASE 7 



donde 7= I +2+4. Si no hay sonido retenido en ningun canal, la orden no tiene efecto. Pruebe 
lo siguiente: 

SOUND 1+64,90 

SOUND 2+64,140 

SOUND 4+64,215 

RELEASE 3:F0R t-1 TO 1000: NEXT: RELEASE 4 

No se produce ningun sonido mientras no se ejecuta la primera orden RELEASE, la cual libera 
los sonidos de los canales A y B. Despues de una pausa, la segunda orden RELEASE libera el 
canal C. 

Hay otro metodo para sincronizar sonidos. Cuando se retiene un sonido sumando 64 a su 
numero de situacion de canal, no solo queda el retenido, sino todos los que se envien a 
continuacion a ese mismo canal. Si se envfan mas de cuatro sonidos a una cola que esta retenida, 
la maquina queda bloqueada hasta que se libere la cola (posiblemente al ejecutarse una subrutina 
invocada por AFTER o EVERY). Esta no es una buena forma de gestionar los sonidos, ya que la 
maquina se detendra cada vez que se llene una cola. Lo mismo ocurre si se ejecutan varias 
ordenes SOUND seguidas. Pruebe este programa: 

10 FOR a-1 TO 8 

20 SOUND l,100*a,200 

30 NEXT 

40 PRINT"hola" 
run 

El texto no aparece en la pantalla inmediatamente, sino al cabo de tres segundos. Esto ocurre 
porque el programa no puede llegar a la linea 40 mientras no haya espacio libre en la cola para 
almacenar todos los sonidos. 

BASIC dispone de un mecanismo de interrupcion, similar al que se utiliza en AFTER, EVERY y 
ON BREAK GOSUB, mediante el cual se puede hacer que se ejecute una subrutina cada vez que 
queda espacio libre en una cola especificada: 

10 a=0 

20 ON SQ(1) GOSUB 1000 

30 PRINT a; 

40 GOTO 30 

1000 a=a+10 

1010 SOUND l,a,200 

1020 IF a<200 THEN ON SQ(1) GOSUB 1000 

1030 RETURN 

Observe que el programa no se detiene. La instruccion SOUND no se ejecuta mientras no hay 
espacio libre en la cola del canal A (I), hecho que detecta la orden ON SQ( ) GOSUB de la 
Ifnea 20. Esta orden inicializa un mecanismo de interrupcion que ejecuta la subrutina cada vez 
que queda un hueco libre en la cola especificada. El mecanismo tiene que ser reinicializado cada 
vez que se ejecuta la subrutina (Ifnea 1 020). En este ejemplo, la reinicializacion solo se produce si 
a es menor que 200. 

En un programa que Neve a cabo acciones relativamente lentas (por ejemplo, mover objetos por 
la pantalla), se puede poner musica de fondo programando una subrutina que ejecute una nota 
cada vez que quede un hueco libre en la cola. De esta forma se asegura que el programa no se 
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va a detener en espera de que quede espacio en la cola. Si los valores de las notas estan 
contenidos en listas DATA, se puede hacer que la subrutina de sonido deje de reinicializarse 
cuando los datos esten a punto de agotarse. 

El parametro que va entre parentesis en la instruccion ON SQ( ) GOSUB puede ser I, 2 o 4, 
dependiendo del canal cuya cola se desee examinar. 

Hay una funcion, SQ( ), que se puede utilizar para determinar el estado de los canales de sonido. 
Su parametro puede ser 1 , 2 o 4. El valor generado por la funcion se interpreta bit a bit segun la 
siguiente tabla: 



Bit 


Decimal 


Significado 


0, 1,2 


1 a4 


Numero de huecos libres en la cola 


3 


8 


La primera nota de la cola esta marcada para sincronizar con el canal A 


4 


16 


La primera nota de la cola esta marcada para sincronizar con el canal B 


5 


32 


La primera nota de la cola esta marcada para sincronizar con el canal C 


6 


64 


La primera nota de la cola esta retenida (esta a 1 el bit de retencion) 


7 


128 


En este momento esta sonando una nota 



Pruebe el siguiente ejemplo: 

10 SOUND 2,200 

20 x=SQ(2) 

30 PRINT BIN$(x) 

run 



La linea 30 escribe el numero binario 1 0000 1 00. El bit 7 esta a I, lo que indica que en el canal 
habia una nota sonando cuando se ejecuto la linea 20. Los tres dfgitos menos significativos son 
100; equivalen al numero decimal 4, y esto quiere decir que habia cuatro espacios libres en la 
cola. Esta funcion examina la situacion del canal en un punto especffico del programa; en cambio, 
ON SQ( ) GOSUB examina la cola, y reacciona en consecuencia, en un punto indeterminado. 

Hasta ahora todos los ejemplos han consistido en hacer sonar una o dos notas. Si se va a ejecutar 
un grupo de notas independientes, por ejemplo las de una melodia, sus caracteristicas se pueden 
guardar en Ifneas DATA, para luego leerlas con READ e introducirlas en SOUND: 

10 FOR octava=-l TO 2 

20 FOR x=l TO 7: REM notas por octava 

30 READ nota 

40 SOUND l,nota/2foctava 

50 NEXT 

60 RESTORE 

70 NEXT 

80 DATA 426,379,358,319,284,253,239 

run 

El ejemplo final de esta seccion se basa en este concepto. En los canales A y B se hace sonar una 
melodfa con ritmo, utilizando la sincronizacion. Este ejemplo muestra como utilizar las listas 
DATA para incluir informacion sobre nota, octava, duracion y sincronizacion: 
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10 REM la linea 190 da la melodia en clave de agudos 

20 REM la linea 200 da la melodia en clave de graves 

30 DIM escala%(12):F0R x%=l TO 12: READ escala%(x%) :NEXT 

40 canal 1%=1: READ canal l$:canal2%=2:READ canal2$ 

50 CLS 

60 velocidad%=12 

70 escala$=" a-b b c+c d-e e f+f g+g" 

80 ENV 1,2,5,2,8,-1,10,10,0,15 

90 ENV 2,2,7,2,12,-1,10,10,0,15 

100 ENT -1,1,1,1,2,-1,1,1,1,1 

110 DEF FNm$(s$,s)=MID$(s$,s,l) 

120 canal 1%=1:G0SUB 200 

130 canal 2%=1:G0SUB 380 

140 IF canal l%+canal2%>0 THEN 140 

150 END 

160 DATA &777,&70c,&6a7,&647,&5ed,&598 

170 DATA &547,&4fc,&4b4,&470,&431,&3f4 

180 DATA 4cr4f4flflglAl-B2C2f4g2glAl-B6A2Crlflglflglal-blAl- 

b2C2g2A2g2flgla2g2f6e2c2e2c2g2e2cl-BlA2g2f4e4d8c4f3flc2d4-b2fr2-B2A2g2f6e2gr4C4- 

Blalfl-blg2c2-b4a4g4fr6A2A2-B4-B2Ar2-B2A2g2f6e2g4C4-BlAlfl-Blg2C2-B4 A4g8f. 

190 DATA r4f4f8f4e4c4fr8f4e2f2e4d2e2d8c8c6e2f4g4g8e4f3flc4dr8g4cr4e4c6f2d4c4c8fr8- 

e4dr8g8c4e4c6f2d4c4c8f. 

200 REM enviar sonido al canal A 

210 pl$=FNm$ (canal 1$, canal 1%) 

220 IF pl$<>"r" THEN rl%=0:G0T0 240 

230 rl%=16:canal l%=canal l%+l:pl$=FNm$ (canal 1$, canal 1%) 

240 IF pl$="." THEN canal 1%=0: RETURN ELSE ll%=VAL(pl$) 

250 canal l%=canall%+l 

260 nl$=FNm$(canall$, canal 1%) 

270 canal l%=canall%+l 

280 IF nl$="+" OR nl$="-" THEN 350 

290 nl$=" "+nl$ 

300 ndl%= (l+INSTR(escal a$ , LOWERS (nl$) ) )/2 

310 IF ASC(RIGHT$(nl$,l))>96 THEN ol%=8 ELSE ol%=16 

320 SOUND l+rl%,escala%(ndl%)/ol%,velocidad%*ll%, 0,1,1 

330 ON SQ(1) GOSUB 200 

340 RETURN 

350 nl$=nl$+FNm$ (canal 1$, canal 1%) 

360 canal l%=canall%+l 

370 GOTO 300 

380 REM enviar sonido al canal B 

390 p2$=FNm$(canal2$,canal2%) 

400 IF p2$<>"r" THEN r2%=0:G0T0 420 

410 r2%=8: canal 2%=canal2%+l:p2$=FNm$ (canal 2$, canal 2%) 

420 IF p2$="." THEN canal 2%=0: RETURN ELSE 12%=VAL(p2$) 

430 canal 2%=canal2%+l 

440 n2$=FNm$(canal2$,canal2%) 

450 canal 2%=canal2%+l 

460 IF n2$="+" OR n2$="-" THEN 530 

470 n2$=" "+n2$ 

480 nd2%= (l+INSTR(escal a$ , LOWERS (n2$) ) ) /2 

490 IF ASC(RIGHT$(n2$,l))>96 THEN o2%=4 ELSE o2%=8 

500 SOUND 2+r2%,escala%(nd2%)/o2%,velocidad%*12%,0,l,2 

510 ON SQ(2) GOSUB 380 

520 RETURN 
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530 n2$=n2$+FNm$ (canal 2$ , canal 2%) 
540 canal 2%=canal2%+l 
550 GOTO 480 
run 



Dicho grdficamente ... 

En esta seccion vamos a repasar las funciones graficas del ordenador. Iremos construyendo paso 
a paso un primer ejemplo para ilustrar el funcionamiento de las diversas instrucciones. 

Para empezar, dividimos la pantalla en una ventana de texto (linea 40) y una ventana grafica 
(linea 30). Ademas, establecemos el modo de pantalla y asignamos tintas parpadeantes a dos 
plumas (lineas 20): 

10 REM MASK y TAG en una ventana 
20 MODE 1:INK 2,10,4:INK 3,4,10 
30 ORIGIN 440,100,440,640,100,300 
40 WINDOW 1,26,1,25 
50 CLG 2 

Si ejecuta este programa, podra ver un cuadrado parpadeante al lado derecho de la pantalla. 
Este cuadrado ha sido borrado con la pluma numero 2 (magenta/cyan) por la Ifnea 50. El origen 
de coordenadas ha sido trasladado al extremo inferior izquierdo del cuadrado. La orden MODE 
ha llevado el cursor al origen de coordenadas (X=0, Y=0); podemos dibujar una diagonal en el 
cuadrado con la Ifnea 60: 

60 DRAW 200,200,3 



Ejecute el programa y observe el efecto. Ahada ahora: 
80 MOVE 0,2: FILL 3 



La Ifnea 80 Neva el cursor al interior de una de las dos mitades del cuadrado y la rellena con la 
pluma 3. El Ifmite del recinto que se rellena es el borde de la ventana grafica (que en este caso es 
tambien el del cuadrado) y cualquier recta que se haya dibujado con la pluma grafica actual (la 3) 
o con la que se utiliza para rellenar (tambien la 3). 

Ejecute esta version del programa. 

Para comprobar lo dicho acerca de los Ifmites del recinto, ahada la siguiente Ifnea 70. Observe 
que la unica razon para que el rellenado se limite a una mitad del cuadrado es que la pluma de 
rellenar es el misma con la que se dibujo la diagonal. 

70 GRAPHICS PEN 1 
run 

Modifique la Ifnea 80 para rellenar con la pluma I y ejecute el programa para comprobar esto 
ultimo. Cuando lo haya hecho, vuelva a dejar la linea 80 como estaba (FILL 3). 

Ahada ahora las lineas siguientes para dibujar un cuadrado: 

100 MOVE 20,20 
110 DRAW 180,20 
120 DRAW 180,180 
130 DRAW 20,180 
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140 DRAW 20,20 
run 

Este cuadrado ha sido dibujado con la pluma I a causa de la linea 70. Si omitieramos la Ifnea 70, 
tendnamos que incluir ',V como tercer parametro de MOVE en la Ifnea 100, o bien en el DRAW 
de la Ifnea I 10, para pedir al ordenador que cambiase la pluma grafica. 

Lineas discontinuas 

Las rectas que dibujemos no tienen que ser necesariamente de trazo continuo, sino que pueden 
ser de puntos. La orden MASK nos permite definir el tamaho de los puntos. La forma que 
definamos se repetira cada 8 pixels. Si la primera Ifnea deja incompleto el ultimo grupo de 8 
pixels, la siguiente empezara dibujando los puntos restantes. Con una nueva orden MASK (quiza 
con el mismo parametro) se hace que el siguiente dibujo empiece por el principio del grupo. 

El parametro de MASK es en realidad un byte binario en el que los bits que estan a I indican que 
el pixel correspondiente se debe iluminar con la tinta de la pluma. En nuestro ejemplo vamos a 
poner el parametro directamente en forma binaria (identificada por el prefijo &X); queremos 
que cada grupo de 8 pixels tenga cuatro pixels iluminados en el centro y dos apagados a cada 
lado. De esta forma las rectas seran de trazos, con cuatro pixels encendidos y cuatro apagados. 
Ahada la Ifnea siguiente: 

90 MASK &X00111100 
run 

Pero vemos que el enlace en los rincones no es como nos gustarfa. Lo que ocurre es que los 
pixels de las esquinas se dibujan dos veces: una al final de una recta y otra al principio de la 
siguiente. Una forma un tanto torpe de resolver este problema es incluir las Ifneas: 

115 MOVE 180,22 
125 MOVE 178,180 
135 MOVE 20,178 
run 



Pero es mas facil poner ',0' como segundo parametro de MASK para indicar que no se debe 
dibujar el primer punto de cada Ifnea. Modifique la Ifnea 90: 

90 MASK &X001 11 100,0 

y borre las que ya no necesitamos: 

115 
125 
135 

Ejecute el programa y observe que el cuadrado vuelve a ser simetrico. Si hubieramos puesto ', I ' 
como segundo parametro de MASK, todas las rectas serian de trazo continuo con el primer 
pixel encendido. 

Ahora observe los huecos entre trazos. En el triangulo inferior derecho hay algo que no esta en 
el otro: es el papel grafico, al que se ha dado el numero 2 con la orden CLG 

2 de la Ifnea 50, pero que es invisible en el triangulo superior porque es del mismo color que el 
fondo. Modifique la Ifnea 50: 
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50 CLG 2: GRAPHICS PAPER 



y vuelva a ejecutar el programa. El papel ya es visible en todos los bordes del cuadrado. 

Podemos hacer que el papel grafico sea invisible ('transparente'). Esto significa que cuando 
dibujemos Ifneas de trazos, los huecos no taparan lo que haya debajo. Los dibujos se hacen 
transparentes anadiendo 'J' a la orden GRAPHICS PEN. (Para hacerlos opacos el parametro 
debe ser ',0'. Modifique la Ifnea 70: 

70 GRAPHICS PEN 1,1 
run 

y observe el resultado. 

Ademas de dibujar rectas (y puntos sueltos), podemos escribir textos en la posicion del cursor 
grafico. La ventaja con respecto al metodo normal de escritura de textos es que asf podemos 
situar los textos con mayor precision (justamente en el pixel deseado, en vez de a saltos de 8 
pixels). 

Para escribir caracteres por este metodo, el cursor se pone en el lugar en el que queremos que 
quede el punto superior izquierdo del caracter, despues ejecutamos la orden TAG (o TAG #x 
para otros canales) seguida de las ordenes PRINT normales. El cursor grafico avanza 
automaticamente 8 pixels hacia la derecha cada vez que se escribe un caracter. Anada las 
siguientes lineas: 

160 MOVE 64,108 

170 TAG 

180 PRINT "ELENA" 

190 TAG0FF 

run 



(BASIC envia siempre sus mensajes a la ventana de texto, cualquiera que sea la situacion del 
conmutador TAG/TAGOFF, pero es una buena costumbre cancelar TAG en cuanto se haya 
terminado de escribir en la pantalla grafica.) 

Pero ique son las flechas que han salido a la derecha del nombre? Muy sencillo: el codigo de 
retorno del carro, CHR$(I3), y el de avance de Ifnea, CHR$(I0), en version grafica. Las rutinas 
del firmware que escriben en la pantalla grafica traducen los 32 primeros caracteres ASCII a sus 
versiones graficas [igual que si se los enviara a la pantalla de texto precedidos de CHR$(I)]. La 
razon es que los 32 codigos de control normalmente solo tienen utilidad en la pantalla de texto; 
por lo mismo, si sobrepasamos el borde derecho al escribir en la pantalla grafica, el ordenador lo 
permite y no salta automaticamente a la Ifnea siguiente. 

Los signos de retorno del carro y de avance de Ifnea se suprimen poniendo un punto y coma al 
final de la instruccion PRINT: 

180 PRINT "ELENA"; 
run 

El texto enviado a la pantalla grafica usando TAG depende de las mismas ordenes GRAPHICS 
PEN que los dibujos. Asf, en el ejemplo, el nombre lo escribe GRAPHICS PEN I, y es 
transparente. La orden 

150 GRAPHICS PEN 1,0 
run 

Manual de Amstrad CPC 6 1 28 (revision 2008) - Pagina 360 



selecciona papel opaco, mientras que 

150 GRAPHICS PEN 0,1 
run 

escribe con pluma numero en modo transparente. 

Borre la linea 1 50 y ejecute el programa. La pluma grafica vuelve a ser I en modo transparente 
(linea 70). 

Caracteres transparentes 

Hay un codigo de control que permite escribir caracteres en la pantalla de texto en modo 
transparente. Anada las siguientes Ifneas: 

200 PRINT#2 , CHR$(22);CHR$(1) 

210 LOCATE #2,32,14: PRINT#2, "******" 

220 LOCATE #2,32,14: PRINT#2," " 

230 PRINT#2, CHR$(22);CHR$(0) 
run 

La Ifnea 200 pone el canal #2 en modo transparente. Observe que los signos de subrayar se 
funden con los asteriscos sin borrarlos. De esta manera se pueden formar caracteres 
compuestos, incluso en varios colores. La Ifnea 230 vuelve a poner el canal #2 en modo opaco. 

Modos de tinta 

Es posible dibujar graficos de tal modo que la tinta con la que se dibuja interaccione con la ya 
presente en la pantalla. El numero de tinta final para cada punto se calcula realizando una 
operacion logica con la antigua tinta del pixel y la tinta de la pluma grafica. La operacion puede 
ser AND, OR o XOR. El modo de tinta se puede especificar como cuarto parametro en las 
instrucciones DRAW/DRAWR, PLOT/PLOTR o MOVE/MOVER, o bien enviando a la pantalla los 
codigos de control CHR$(23) + CHR$(<modo>). En cualquier caso, el modo es I para XOR, 2 
para AND y 3 para OR. El valor restaura el modo normal, en el que se dibuja sin interaccion. 

En el siguiente ejemplo ilustramos la combinacion XOR. Este modo se utiliza habitualmente en 
los denominados 'graficos de tortuga', porque tiene la propiedad de que si se dibuja algo dos 
veces se restaura la situacion original. La rutina que dibuja el cuadrado se ejecuta dos veces (en 
las Ifneas I 10 y 130), asf como la escritura con TAG (Ifneas 170 y 190). Las ordenes FRAME 
introducen un retardo suficiente como para que el efecto sea visible. Notese que las ordenes de 
la Ifnea 90 no llevan primer parametro. Esto es correcto tratandose de estas ordenes concretas; 
lo hemos hecho asf para no modificar las caracterfsticas correspondientes. 

El tercer parametro (, I ) de la orden MOVE de la Ifnea 220 selecciona la pluma grafica numero I , 
anulando asf la '3' seleccionada en la Ifnea 60. El modo XOR se establece en el cuarto parametro 
de la orden DRAWR de la Ifnea 230. Observese que tambien aquf hemos omitido un parametro. 

Podemos observar una consecuencia del efecto del segundo parametro de MASK suprimiendo 
esta orden de la Ifnea 90. Los rincones del cuadrado desaparecen porque se dibujan dos veces 
(al final de una recta y al principio de la siguiente) con XOR. 

10 REM modos de tinta XOR 

20 MODE 1:INK 2, 10: INK 3,4 

30 ORIGIN 440,100,440,640,100,300 

40 WINDOW 1,26,1,25 
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50 CLG 2: GRAPHICS PAPER 

60 DRAW 200,200,3 

70 MOVE 2,0: FILL 3 

80 ORIGIN 440,0,440,640,0,400 

90 GRAPHICS PEN ,1:MASK ,0 

100 FOR y=60 TO 318 STEP 2 

110 GOSUB 220 

120 FRAME: FRAME 

130 GOSUB 220 

140 NEXT 

150 TAG 

160 FOR y=60 TO 318 STEP 2 

170 MOVE 96, y: PRINT CHR$(224); 

180 FRAME: FRAME 

190 MOVE 96, y: PRINT CHR$(224); 

200 NEXT 

210 END 

220 MOVE 90,y,l 

230 DRAWR 20,0,,1 

240 DRAWR 0,20 

250 DRAWR -20,0 

260 DRAWR 0,-20 

270 RETURN 

run 



Animation 



Se puede dar ilusion de movimiento cambiando adecuadamente los colores asignados a las tintas. 
Aunque el contenido de la memoria de la pantalla no se modifica, los dibujos parecen moverse. 
Se da un ejemplo de este metodo en el programa de demostracion que se suministra con el 
disco maestro del sistema (RUNT'disc"). Sin embargo, el simple cambio de colores de ese 
ejemplo no es suficiente cuando las formas moviles tienen que solaparse. En el siguiente ejemplo 
recurrimos al modo OR para escribir los numeros I al 4 en la pantalla. (La forma se determina 
examinando el caracter que esta en el extremo inferior izquierdo de la pantalla y ampliando lo 
que alii se encuentra.) Los numeros se escriben sucesivamente con las tintas 1 , 2, 4 y 8 y con el 
modo OR activado (en este caso mediante una sucesion de codigos de control, Ifnea 50). 

El bucle que empieza en la Ifnea 1 60 realiza una rotacion de los colores de la paleta mediante 
una formula matematica que hace que se ilumine un numero cada vez. Las tintas se establecen 
inspeccionandolas sucesivamente y determinando si contienen el componente binario que 
estamos buscando. Por ejemplo, el 3 fue dibujado con tinta 4; por lo tanto, para visualizar el 
numero 3 debemos dar un color visible a todas las tintas cuyo numero contenga un 4 binario. 
Esas tintas son: 

4(0100), 5(0101), 6(01 10), 7(01 I I), 12(1 100), 13(1 101), 14(1 I 10), 15(1 I I I) 

En una aplicacion practica se calcularfa que tintas se deberfan cambiar en cada etapa, y las Ifneas 
180 a 200 se sustituirian por una rutina mas rapida. 

10 REM animacion con tintas 

20 ON BREAK GOSUB 220 

30 FOR i=l TO 15: INK i, 26: NEXT 

40 m(l)=l:m(2)=2:m(3)=4:m(4)=8 

50 MODE 0: PRINT CHR$(23) ;CHR$(3) ; :TAG 

60 FOR p=l TO 4 
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70 GRAPHICS PEN m(p),l 

80 LOCATE #l,l,25:PRINT#l,CHR$(48+p); 

90 FOR x=0 TO 7 

100 FOR y=0 TO 14 STEP 2 

110 IF TEST(x*4,y)=0 THEN 140 

120 MOVE (x+6)*32,(y+6)*16:PRINT CHR$(143); 

130 MOVE (x+6)*32,(y+7)*16:PRINT CHR$(143); 

140 NEXT y,x,p 

150 LOCATE #1,1,25:PRINT#1," "; 

160 FOR p=l TO 4 

170 FOR 1-1 TO 25: FRAME: NEXT 

180 FOR i=0 TO 15 

190 IF (i AND m(p))=0 THEN INK i,0 ELSE INK i ,26 

200 NEXT i,p 

210 GOTO 160 

220 INK 1,26 

run 



Sprites 

En el ejemplo anterior hemos visto como se da ilusion de movimiento cambiando los colores 
despues de escribir con las tintas 1 , 2, 4 y 8. Un efecto muy distinto se consigue si se utilizan las 
mismas tintas pero se manejan los colores de forma diferente. Este efecto se conoce con el 
nombre de 'pianos de color'; lo ilustramos en el siguiente ejemplo. 

10 REM montanas 

20 DEFINT a-s,u-z 

30 INK 0,1:INK 1,26 

40 INK 2,6:INK 3,6 

50 FOR 1-4 TO 7:INK i,9:NEXT 

60 FOR 1-8 TO 15: INK i, 20: NEXT 

70 MODE 0:DEG:0RIGIN 0,150:CLG:M0VE 0,150 

80 FOR x=16 TO 640 STEP 16 

90 DRAW x,C0S(x)*150+RND*100,4 

100 NEXT 

110 MOVE 0,0: FILL 4 

120 cx=175:G0SUB 320 

130 cx=525:G0SUB 320 

140 SYMBOL 252,0,0,&c,&lF,&30,&7F,&FF 

150 SYMBOL 253,0,6,&E,&F2,2,&F2,&FE 

160 SYMBOL 254,0,&60,&70,&7F,&7F,&7F,&7F 

170 SYMBOL 255,0,0,0,&F8,&EC,&FE,&FF 

180 pr$=CHR$(254)+CHR$(255) 

190 pl$=CHR$(252)+CHR$(253) 

200 TAG:t=TIME 

210 FOR x=-32 TO 640 STEP 4 

220 x2=((608-x)*2)M0D 640:hl=RND*10:hr=50*SIN(x) 

230 GRAPHICS PEN 8,1:M0VE x,100+hr,3:PRINT pr$; 

240 GRAPHICS PEN 2,1:M0VE x2,115+hl,3:PRINT pl$; 

250 IF (TEST(x2-2,115+hl-12) AND 8)=8 THEN 380 

260 IF TIME-t<30 ThEN 260 

270 FRAME :t=TIME 

280 GRAPHICS PEN 7,1:M0VE x,100+hr,2: PRINT pr$; 

290 GRAPHICS PEN 13,1:M0VE x2,115+hl,2:PRINT pl$; 
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300 NEXT 

310 GOTO 210 

320 MOVE ex, 100 

330 FOR x=0 TO 360 STEP 10 

340 DRAW cx+SIN(x)*50+10*RND,100+C0S(x)*25+10*RND,l 

350 NEXT 

360 DRAW cx,100:M0VE ex, 90: FILL 1 

370 RETURN 

380 ENT -1,1,1,1 

390 SOUND 1,25,400,15,1,15 

400 FOR y=100+hr TO -132 STEP -2 

410 GRAPHICS PEN 7,1:M0VE x,y,2:PRINT pr$; 

420 GRAPHICS PEN 8,1:M0VE x,y-2,3:PRINT pr$; 

430 NEXT 

440 GOTO 70 

Para explicar como funciona, una vez mas tenemos que expresar los numeros de INK en binario. 
Empezando por el numero maximo (el 1 5), asignamos el color cyan a todas las tintas que tienen 
activo el bit del '8' (de la 1 5 a la 8). Despues damos el color verde a todas las que tienen activado 
el bit del '4' (de la 7 a la 4). Las tintas 2 y 3 tienen a I el bit del '2' y les asignamos el color rojo. 
Finalmente, asignamos el color bianco a la tinta I y dejamos la tinta en azul. 

Los graficos se envfan a la pantalla en modo OR (lineas 230 y 240). El color que se ve en la 
pantalla en cada pixel esta determinado por el bit mas significativo del resultante en ese punto. 
Asf pues, una imagen que este en un piano 'mas significativo' predomina sobre otra que este en 
un piano 'menos significativo', pero el fondo se conserva y vuelve a ser visible si se retira la 
imagen 'mas significativa'. La forma de retirar la imagen consiste en dibujarla en modo AND: las 
tintas 7, I 1 , 1 3 y 14 borran las tintas 8, 4, 2 y I , respectivamente (Ifneas 280 y 290). 

Graficos con el segundo banco de 64K de RAM 

Para concluir este capftulo ofrecemos un programa 'disenador de pantallas graficas' que utilizan 
los 64K adicionales de RAM. 



10 'Disenador de pantallas, por David Radisic 

20 ' copyright (c) AMS0FT 1985 

30 ' 

40 'No olvide ejecutar BANKMAN antes que este programa 
en ' ************************************************** 

60 ' 

70 ON ERROR GOTO 2740 

80 DEFINT a-x 

90 MODE l:ch=127:ord=l:pn(0)=0:pn(l)=26:pn(2)=15:pn(3)=6: 

pn(4)=0:pn=l:norx=l:menu=l:zzz=HIMEM 
100 DIM orden$(22) 

110 norx$(0)="Normal":norx$(l)="X0R " :norx$(2)="Transp" :norx$(3)="X0R " 
120 RESTORE: READ ords$ (1) ,ords$ (2) :ord$=CHR$ (16)+CHR$ (&7F)+ords$ (l)+ords$ (2) 
130 READ ordnum:F0R i=l TO ordnum:READ orden$(i) :NEXT 
140 READ parar$:IF parar$<>"**" THEN ord$(ord)=parar$:ord =ord+l:G0T0 140 
150 WINDOW #0,1,40,1,3:PAPER #0,0:PEN #0,1:CLS #0 
160 WINDOW #1,1,40,4,4:PAPER #1,3:PEN #1,1:CLS #1 
170 ORIGIN 0,0,0,640,0,334 
180 x=320:y=200:M0VE x,y 
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190 BORDER pn(4):F0R i=0 TO 3: INK i,pn(i):NEXT 

200 MASK 255,0:PAPER 0:PEN 1:PAPER #1,3:PEN #1,1:GRAPHICS PEN pn.norx 

210 IF ind<>5 THEN 280 

220 IF pn<2 THEN flechaS=CHR$(240) :px=(pn+l)*13 ELSE IF pn<4 THEN fle- 

cha$=CHR$(241):px=(pn-l)*13 ELSE flecha= CHR$(243) :px=37 
230 LOCATE px,2: PRINT flecha$; 

240 LOCATE 1,1: PRINT USING" PEN : ## PEN 1 : ##";pn(0) ;pn(l) ; 
250 LOCATE 29,2:PRINT USING"Border : ##";pn(4) 
260 LOCATE 1,3:PRINT USING" PEN 2 : ## PEN 3 : ##";pn(2) ;pn(3) ; 
270 LOCATE px,2: PRINT" "; 
280 LOCATE #1,1,1:PRINT #1,USING"X :#### Y :#### ";x;y; :PRINT#l,"Modo de tinta: 

";norxS(norx+(borrar*2)) ;" " 
290 IF ind=0 THEN GOSUB 2260 
300 ' 

310 GOSUB 970 
320 ' 

330 IF ind>0 THEN 390 
340 IF i$="" THEN 390 
350 ord=INSTR(ordS,i$):IF ord=0 THEN 390 
360 IF ord=l THEN CLG:x=320:y=200:G0T0 390 
370 IF ord=2 THEN RUN 70 
380 ON ord-2 GOSUB 

1240,1410,1520,1640,1840,1860,1950,2020,2090,2120,2170,2200,2660,2660,2660,2660,23 

90,2330,2200 
390 IF tx=0 AND ty=0 THEN 200 
400 IF ind>0 THEN 440 
410 GOSUB 630 

420 GOSUB 680: FRAME: GOSUB 680 
430 GOTO 200 

440 MOVE tempx,tempy,pn,l 
450 ON ind GOSUB 470,490,550,640 
460 GOTO 200 

470 PLOT x,y:GOSUB 630:PL0T x,y 
480 RETURN 

490 DRAW tempx+x,tempy:DRAW tempx+x,tempy+y 
500 DRAW tempx,tempy+y:DRAW tempx,tempy 
510 GOSUB 630 

520 DRAW tempx+x,tempy:DRAW tempx+x,tempy+y 
530 DRAW tempx,tempy+y:DRAW tempx,tempy 
540 RETURN 

550 MOVE tempx,tempy:DRAWR x,y 
560 IF treslados=0 THEN 580 
570 DRAW tempxx,tempyy:DRAW tempx,tempy 
580 GOSUB 630 

590 MOVE tempx,tempy:DRAW tempx+x,tempy+y 
600 IF treslados=0 THEN RETURN 
610 DRAW tempxx,tempyy:DRAW tempx,tempy 
620 RETURN 

630 x=x+tx:y=y+ty: RETURN 
640 MOVE tempx,tempy:DRAW x,y 
650 GOSUB 630 

660 MOVE tempx,tempy:DRAW x,y 
670 RETURN 

680 ' dibujar y borrar cursor 
690 IF ind=5 THEN RETURN 
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700 MASK 255,1 

710 IF ind>l THEN xx=tempx+x:yy=tempy+y ELSE xx=x:yy=y 

720 IF ind=4 THEN xx=x:yy=y 

730 IF ind-1 THEN xx=x:yy=y 

740 IF borrar=l THEN 820 

750 GOSUB 790 

760 MASK 255,0 

770 IF i$=" " THEN GOSUB 2150: i$="" 

780 RETURN 

790 MOVE xx-4,yy,pn,l:DRAW xx+4,yy 

800 MOVE xx,yy-4:DRAW xxsyy+4 

810 MOVE xx,yy,xorn: RETURN 

820 nx=l:GOSUB 1220 

830 FRAME: GOSUB 1220 

840 IF i$=" " THEN nx=norx:GRAPHICS PEN pn,l:GOSUB 1220 

850 i$="" 

860 IF ind<>6 THEN 760 

870 IF movido=0 AND j$<>"" AND (j$<CHR$(240) OR j$>CHR$ (247) ) THEN 

ch=ASC(j$):movido=l 
880 IF movido=0 THEN RETURN 
890 LOCATE 5,2 
900 FOR i=ch-5 TO ch+5 
910 PEN ABS(i<>ch)+l 

920 ch$=CHR$(l)+ CHR$(ABS(i+256)M0D 256) 
930 IF ch=i THEN PRINT" "ch$" "; ELSE PRINT ch$; 
940 NEXT 

950 PEN 1: PRINT" = "ch" "; 
960 GOTO 760 

970 ty=0:tx=0: GOSUB 680: FRAME: GOSUB 680 
980 IF INKEY(0)<>-1 OR INKEY(72)<>-1 THEN ty=16 
990 IF INKEY(2)<>-1 OR INKEY(73)<>-1 THEN ty=-16 
1000 IF INKEY(8)<>-1 OR INKEY(74)<>-1 THEN tx=-16 
1010 IF INKEY(1)<>-1 OR INKEY(75)<>-1 THEN tx=16 
1020 IF INKEY(21)<>-1 OR INKEY(76)<>-1 THEN tx=tx/8:ty=ty /8 
1030 IF tx=0 AND ty=0 THEN movido=0 ELSE movido=l 
1040 j$=INKEY$:i$=UPPER$(j$) 

1050 IF (i$=" " OR i$=CHR$(13)) AND ind>0 THEN 1090 
1060 IF ind=5 THEN 1120 
1070 IF ind=6 THEN 1170 
1080 RETURN 

1090 ON ind GOSUB 1240,1410,1640,1860,1950,2020 
1100 i$="" 
1110 RETURN 

1120 IF movido=0 THEN RETURN 

1130 IF tx>2 THEN pn=(pn+l) MOD 5 ELSE IF tx<-2 THEN pn=ABS((pn<l))*5-l+pn 
1140 IF ty>2 THEN pn(pn)=(pn(pn)+l) MOD 27 ELSE IF ty<-2 THEN 

pn(pn)=ABS((pn(pn)<l))*27-l+pn(pn) 
1150 GRAPHICS PEN pn:PEN #l,pn 
1160 tx=0:ty=0: BORDER pn(pn) :RETURN 
1170 IF tx<0 THEN ch=ABS(ch+255) MOD 256 
1180 IF ty<0 THEN ch=ABS(ch+246) MOD 256 
1190 IF tx>0 THEN ch=(ch+l) MOD 256 
1200 IF ty>0 THEN ch=(ch+10) MOD 256 
1210 tx=0:ty=0: RETURN 
1220 TAG:MOVE xx-8,yy+6,pn,nx:PRINT CHR$(ch) ; :TAGOFF 
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1230 RETURN 

1240 ' C 

1250 IF ind=l THEN 1290 

1260 ro=l:G0SUB 2240 

1270 tempx=x:tempy=y:ind=l 

1280 RETURN 

1290 IF tempx=x AND tempy=y THEN 1390 

1300 PLOT x.y.l 

1310 tix=MAX(x,tempx)-MIN(tempx,x):tiy=MAX(y,tempy)-MIN(tempy,y) 

1320 ti=SQR((tix A 2)+(tiy A 2)) 

1330 ORIGIN tempx.tempy 

1340 PLOT 0,0,pn,0:MOVE 0,-ti 

1350 FOR z=0 TO PI*2+0.01 STEP PI/(ti/2) 

1360 DRAW SIN(z+PI)*ti,COS(z+PI)*ti,pn,norx 

1370 NEXT z 

1380 ORIGIN 0,0 

1390 x=tempx :y=tempy : tempx=0 : tempy=0 : i nd=0 

1400 RETURN 

1410 ' R 

1420 IF ind=2 THEN 1470 

1430 ro=2:G0SUB 2240 

1440 tempx=x:tempy=y:ind=2 

1450 x=0:y=0 

1460 RETURN 

1470 IF norx=l THEN 1500 

1480 MOVE tempx,tempy:DRAW tempx+x,tempy,norx 

1490 DRAW tempx+x,tempy+y:DRAW tempx,tempy+y:DRAW tempx.tempy 

1500 x=tempx:y=tempy:ind=0 

1510 RETURN 

1520 ' . (rellenar) 

1530 ro=3:G0SUB 2240 

1540 GOSUB 1620: IF i$=" " THEN 1600 

1550 colorlim=VAL(i$) 

1560 ro=4: GOSUB 2240 

1570 GOSUB 1620: IF i$=" " THEN 1600 

1580 rellenador=VAL(i$) 

1590 MOVE x,y 5 colorlim:FILL rellenador 

1600 ind=0:i$="" 

1610 RETURN 

1620 i$=INKEY$:IF (i$<"0" OR i$>"3") AND i$<>" " THEN 1620 

1630 RETURN 

1640 ' T 

1650 IF ind=3 THEN 1700 

1660 ind=3:ro=5: GOSUB 2240 

1670 tempx=x:tempy=y 

1680 x=0:y=0 

1690 RETURN 

1700 IF treslados<>0 THEN 1770 

1710 ro=6:G0SUB 2240 

1720 MOVE 0,0,pn,l:G0SUB 590 

1730 tempxx=tempx+x : tempyy=tempy+y : x=x/2 :y=20 

1740 treslados=l 

1750 GOSUB 550: GOSUB 590 

1760 RETURN 

1770 IF norx=l THEN 1800 
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1780 MOVE tempxx,tempyy,norx:DRAW tempx,tempy 

1790 DRAW tempx+x,tempy+y:DRAW tempxx.tempyy 

1800 tempxx=0:tempyy=0 

1810 x=tempx:y=tempy:treslados=0 

1820 tempx=0:tempy=0:ind=0 

1830 RETURN 

1840 ' @ 

1850 norx=l:borrar=borrar XOR 1: RETURN 

1860 ' \ (linea recta) 

1870 IF ind=4 THEN 1910 

1880 ro=7:G0SUB 2240 

1890 tempx=x:tempy=y:ind=4 

1900 RETURN 

1910 IF norx=l THEN 1930 

1920 MOVE tempx,tempy,norx:DRAW x,y 

1930 x=tempx:y=tempy:ind=0 

1940 RETURN 

1950 ' I 

1960 IF ind=5 THEN ind=0:CLS:INK 3, col temp:INK pn,col:GOTO 1990 

1970 CLS:ind=5: BORDER pn(pn) 

1980 RETURN 

1990 FOR i=0 TO 3: INK i ,pn(i) : NEXT: BORDER pn(4) 

2000 IF pn=4 THEN pn=l 

2010 CLS: RETURN 

2020 ' A 

2030 IF ind=6 THEN 2070 

2040 tempx=0:tempy=0:CLS 

2050 borrar=l : i nd=6 : norx=l :movi do=l 

2060 RETURN 

2070 ind=0 

2080 RETURN 

2090 ' N 

2100 norx=0 

2110 RETURN 

2120 ' B 

2130 GRAPHICS PEN pn,0:TAG:MOVE xx-8,yy+6,0:PRINT" ";:TAGOFF 

2140 RETURN 

2150 ' <BARRA ESPACIAD0RA> 

2160 PLOT x,y,pn,norx:RETURN 

2170 ' X 

2180 norx=l 

2190 RETURN 

2200 ' M 

2210 menu=menu MOD 2+1 

2220 GOSUB 2260: RETURN 

2230 i$=UPPER$(INKEY$):IF i$="n" OR INSTR(gri$,i$)=0 THEN 2230 ELSE RETURN 

2240 CLS :borrar=0: PRINT ord$(ro) ;: LOCATE 1,3:PRINT"<BARRA >";:IF ro=3 OR ro=4 THEN 

PRINT"para terminar" 
2250 RETURN 
2260 CLS:ind=-l 

2270 FOR i=l TO LEN(ords$(menu)) 
2280 ps=i+ABS(menu=2)*LEN(ords$(l)) 

2290 PEN l:PRINT"<"MID$(ords$(menu),i,l)">"MID$(orden$(ps),2,4)" "; 
2300 NEXT 
2310 PRINT"<CLR> <DEL> <BARRA>"; 
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2320 RETURN 

2330 ' G 

2340 GOSUB 2460:IF nombrefichero$="" THEN 2370 

2350 GOSUB 2550 

2360 SAVE nombref ichero$,&C000,&4000 

2370 GOSUB 2260 

2380 RETURN 

2390 ' L 

2400 GOSUB 2460:IF nombrefichero$="" THEN 2440 

2410 GOSUB 2730 

2420 LOAD nombref ichero$,&COOO 

2430 GOSUB 2570 

2440 GOSUB 2260 

2450 RETURN 

2460 CLS:LOCATE 10,3:PRINT"<RETURN> para abandonar! "; 

2470 LOCATE 1,1: PRINT" Nombre del fichero? "; 

2480 INPUT "",nombrefichero$:IF nombrefichero$="" THEN RETURN 

2490 n=INSTR(nombrefichero$,"."):IF n=0 THEN 2520 

2500 IF n=l THEN 2460 

2510 nombref i chero$=LEFT$ (nombref i chero$ ,n-l) 

2520 nombref i chero$=LEFT$ (nombref i chero$ ,8) + " . pan" 

2530 CLS 

2540 RETURN 

2550 FOR i=0 TO 4: POKE &C000+i ,pn(i) :NEXT 

2560 RETURN 

2570 FOR i=0 TO 4:pn(i)=PEEK(&C000+i) MOD 27:NEXT 

2580 cn=0:FOR i=0 TO 2:IF pn(i)ripn(i+l) THEN cn=cn+l 

2590 NEXT: IF cn=3 THEN 2630 

2600 FOR i=0 TO 3:INK i,pn(i):NEXT 

2610 BORDER pn(4) :pn=l:GRAPHICS PEN pn 

2620 RETURN 

2630 pn(0)=0:pn(l)=26:pn(2)=15:pn(3)=6:pn(4)=0 

2640 GOTO 2600 

2650 ' 1, 2, 3 y 4 

2660 CLS:PRINT"Quiere <G>uardar" : PRINT TAB(8) "<R>ecuperar" : PRINT TAB(6)"o 

<I>intercambiar la pantalla?"; 
2670 gri$="GRI"+CHR$(13):G0SUB 2230:IF i$=CHR$(13) THEN 2260 
2680 bnk2=(ord-13):bnkl=l 

2690 IF i$="G" THEN CLS:G0SUB 2550: |SCREENC0PY,bnk2,bnkl 
2700 IF i$="R" THEN GOSUB 2730: |SCREENC0PY,bnkl,bnk2:G0SUB 2570 
2710 IF i$="I" THEN CLS:GOSUB 2730:G0SUB 2550: |SCREENSWAP,bnk2,bnkl:G0SUB 2570 
2720 GOSUB 2260: RETURN 

2730 FOR i=0 TO 3:INK i ,0: NEXT: BORDER 0:RETURN 
2740 CLS:GOSUB 2600: RESUME 2260 
2750 DATA "CR.T(3\IANBXM","1234LGM" 
2760 DATA 19,Ci rcunferencia,Recuadro, " .rel 1 enar" ,Triangul o,Al ternar,\recta,"Inks 

".ASCII, Normal, Borrar,"Xor", "Menu ","1,"2 11,113 11 11A ","Leer n,"Grabar","Menu 
2770 DATA Circunferencia,Recuadro, Color del limite, Color para rel lenar,Triangulo 

l,Triangulo 2,Linea recta,** 



Las dos ordenes |SCREENCOPY y |SCREENSWAP se cargan con el programa BANKMAN 
(cara I del juego de discos del sistema). Estas ordenes copian e intercambian imagenes de 
pantalla entre los diversos bloques de 1 6K de memoria y entre los dos bancos de 64K. 
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Antes de probar el programa 'disenador de pantallas' es necesario ejecutar el 'gestor de bancos'. 
Inserte en la unidad la cara I del juego de discos del sistema y escriba lo siguiente: 

run"bankman" 

A continuacion ejecute el programa 'disenador de pantallas'. En el monitor aparecera un menu y 
un cursor grafico parpadeante. Pulse la tecla correspondiente a la opcion elegida. 

Por ejemplo, para dibujar una circunferencia pulse C y luego la tecla T hasta que el cursor 
pulsatil este a unos dos o tres centfmetros por encima del centro de la pantalla. 

Finalmente, pulse la barra espaciadora para ejecutar la funcion 'Circunferencia', despues de lo 
cual el programa vuelve al menu. 

Si se teclea una M (de 'M'enu) se obtiene un segundo menu que ofrece las opciones de 'G'uardar 
y 'R'ecuperar pantallas y de manipular el contenido de las pantallas 'I', '2', '3' y '4' (que estan en el 
segundo banco de 64K de RAM). 

Para utilizar estas funciones, escriba el 'numero de memoria'(l , 2, 3 o 4); aparecera otro menu, 
en el cual se puede elegir: 

• G para almacenar una pantalla 

• R para recuperar una pantalla para intercambiar pantallas 

• [RETURN] para abandonar este menu 

Por ejemplo, para almacenar la pantalla actual en la memoria 2, pulse el '2' seguido de la 'G'. 

Si se sale de este menu, pulsando 'M' puede volver a el. 

El programa 'disenador de pantallas' realiza diversas funciones: rectangulos, circunferencias, 
triangulos, rectas, encendido y apagado de puntos, rellenado de recintos y dibujo de caracteres. 

Cuando se ha terminado el diseho de una pantalla, se la puede grabar en disco para su posterior 
recuperacion. 



Con esto termina el ultimo capftulo del manual. Probando y analizando los programas que le 
hemos ofrecido en estas paginas, y experimentando con ellos, es de esperar que usted haya 
llegado a conocer con bastante profundidad el BASIC de Amstrad y el propio CPC6 1 28. 
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Para mas informacion ... 

Hay numerosas publicaciones de Indescomp y de otras editoriales en las que puede encontrar 
mas amplia informacion sobre el CPC6 1 28; en concreto, las especificaciones de BASIC y del 
firmware y extensa documentacion sobre CP/M y Dr. LOGO. 

Finalmente vamos a ofrecerle cuatro apendices: el Acuerdo de licencia para el usuario final de 
programa CP/M, un glosario de terminologfa informatica, los listados de unos cuantos programas 
y un fndice alfabetico. 

Esperamos que haya encontrado este manual instructivo e interesante y le agradecemos que 
haya adquirido el CPC6 1 28. 
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Apendice 1 ■ Digital Research y AMSTRAD 

Acuerdo de licencia para el usuario final del programa 

ADVERTENCIA AL USUARIO: POR FAVOR, LEA ATENTAMENTE ESTA NOTA NO ABRA 
LAS CAJAS DE LOS DISCOS MIENTRAS NO HAYA LEIDO ESTE CONTRATO. 

POR EL HECHO DE ABRIR LA CAJA USTED RECONOCE QUE ACEPTA LAS CLAUSULAS Y 
CONDICIONES SIGUIENTES. 

1. Definiciones 

En este contrato: 

1. 'DRI' significa DIGITAL RESEARCH (CALIFORNIA) INC., P. O. Box 579, Pacific Grove, 
California 93950, EE.UU., propietario de los derechos de reproduccion o licenciatario 
autorizado del programa. 

2. 'Maquina' significa un unico microordenador en que se utiliza el programa. Para los 
ordenadores con microprocesadores multiples se requieren licencias adicionales. 

3. 'Programa' es el conjunto de programas, documentacion y anejos incluidos en esta aplicacion, 
asf como las actualizaciones y modificaciones que DRI pueda suministrarle, cualquiera que sea la 
forma en que usted los utilice, con o sin sus propias modificaciones. 

4. AMSTRAD' significa AMSTRAD CONSUMER ELECTRONICS PLC, Brent- wood House, 169 
Kings Road, Brentwood, Essex CM 1 4 4EF, Reino Unido. 

Usted asume toda la responsabilidad derivada de la seleccion del programa y de su instalacion, 
utilizacion y resultados. 

2. Licencia 

Usted puede: 

1 . Utilizar el programa en una sola maquina. 

2. Copiar el programa en forma electronica o impresa, bien sea como medida de seguridad o 
para modificarlo, siempre condicionado a su utilizacion en una sola maquina. Para estos 
propositos puede hacer 3 (tres) copias como maximo. (No obstante, algunos programas pueden 
estar dotados de mecanismos que limiten las posibilidades de copia o la impidan; son los 
marcados con 'copy protected'). Esta prohibido copiar la documentacion y los demas impresos. 
Tambien esta prohibido desensamblar el codigo de maquina. 

3. Modificar el programa o mezclarlo con otro para utilizar el programa resultante en una sola 
maquina. (Toda porcion de este programa que se mezcle con otro seguira estando sujeta a las 
clausulas de este contrato.) 

4. Transferir el programa y la licencia a otro usuario a condicion de que comunique a DRI el 
nombre y las sehas de ese otro usuario, y de que este acepte (a) las condiciones establecidas en 
este contrato, (b) firmar y enviar a DRI una copia de la tarjeta de registro y (c) pagar los 
derechos de transferencia vigentes en el momento. Si usted transfiere el programa, debe al 
mismo tiempo: o bien transferir todas las copias, incluido el original, tanto en version electronica 
como impresa, al mismo usuario, o bien destruir todas las copias no transferidas; esto es de 
aplicacion tambien a todas las modificaciones y a todas las porciones del programa que haya 
mezclado con otros programas. 
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Usted esta obligado a incluir el mensaje de copyright en todas las copias, modificaciones y 
porciones mezcladas con otros programas. 

CADA DISCO TIENE GRABADO UN NUMERO DE SERIE. USTED NO PUEDE UTILIZAR, 
COPIAR, MODIFICAR, TRANSFERIR Nl DE NINGUNA OTRA FORMA PERMITIRQUE OTRA 
PERSONA LLEGUE A ESTAR EN POSESION DE ESTE PROGRAMA, Nl DE NINGUNA 
COPIA, MODIFICACION O PORCION MEZCLADA CON OTRO PROGRAMA, SALVO EN 
LAS CONDICIONES PREVISTAS EN ESTE CONTRATO. 

3. Vigencia del contrato 

Esta licencia estara en vigor mientras no sea cancelada. Usted puede cancelarla en cualquier 
momento destruyendo el programa junto con sus copias, modificaciones y porciones mezcladas 
con otros programas. Tambien quedara cancelada en las condiciones mencionadas en otro lugar 
de este contrato, o por el hecho de que usted no cumpla alguna de las clausulas del contrato. Al 
aceptar este acuerdo, usted se compromete a destruir todas las copias, modificaciones y 
porciones mezcladas con otros programas en cuanto la licencia quede cancelada. 

4. Garantia limitada 

EL PROGRAMA SE SUMINISTRA TAL CUAL. Nl DRI Nl AMSTRAD OFRECEN GARANTIA 
ALGUNA, Nl EXPRESA Nl IMPLICITA, INCLUYENDO LAS GARANTIAS IMPLICITAS DE 
COMERCIABILIDAD Y ADECUACION A UN PROPOSITO CONCRETO, AUNQUE SIN 
LIMITARSE A ESTAS. USTED ASUME TODOS LOS RIESGOS EN CUANTO A LA CALIDAD Y 
BUEN FUNCIONAMIENTO DEL PROGRAMA. SI ESTE FUERA DEFECTUOSO, USTED (Y 
DRI Y AMSTRAD) ASUME EL COSTO TOTAL DE LA REPARACION O CORRECCION 
NECESARIAS. 

Ni AMSTRAD ni DRI garantizan que las funciones del programa vayan a satisfacer sus 
necesidades, ni que el funcionamiento del programa sea ininterrumpido y libre de error. 

No obstante, AMSTRAD garantiza que el disco soporte del programa esta libre de defectos, si 
se le da un trato normal, por un periodo de 90 dias contados a partir de la fecha de la compra, la 
cual se acreditara mediante la factura. 

5. Limitation de la responsabilidad 

La responsabilidad de AMSTRAD se limita a su compromiso de sustituir el disco defectuoso, que 
habra de ser enviado a AMSOFT junto con un copia de la factura. 

DRI Y AMSTRAD NO SERAN EN NINGUN CASO RESPONSABLES DE NINGUN DANO, 
INCLUIDAS PERDIDAS DE BENEFICIOS, PERDIDAS DE AHORROS Y CUALESQUIERA 
OTROS PERJUICIOS DIRECTOS O INDIRECTOS, AUN CUANDO DRI O AMSTRAD HAYAN 
SIDO AVISADOS DE LA POSIBILIDAD DE TALES DANOS, Nl DE NINGUNA 
RECLAMACION DE TERCEROS. 

6. Tarjeta de registro 

DRI actualiza de vez en cuando sus programas. DRI solo enviara tales actualizaciones si ha 
recibido de usted la tarjeta de registro firmada, o si la ha recibido un receptor autorizado por 
DRI. DRI no esta obligada a actualizar el programa ni a enviarle a usted las actualizaciones. 
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7. Condiciones generates 

Usted no puede ceder, asignar o transferir ni la licencia ni el programa a otras personas, salvo en 
la forma expresamente autorizada en este contrato. Todo intento de ceder, asignar o transferir 
los derechos y obligaciones descritos en este contrato sera nulo. 

Este acuerdo sera regido e interpretado de acuerdo con las leyes britanicas. 

Si tiene usted alguna pregunta que hacer en relacion con este contrato, puede escribir a Digital 
Research Inc., P. O. Box 579, Pacific Grove, California 93950, EE. UU. 

ESTE CONTRATO NO PUEDE SER MODIFICADO POR PROPUESTAS DE PEDIDO, POR 
ANUNCIOS PUBLICITARIOS NI DE NINGUNA OTRA FORMA SOLAMENTE PUEDE SER 
MODIFICADO MEDIANTE CONTRATO SUSCRITO ENTRE USTED Y UN APODERADO DE 
DRI Y OTRO DE AMSTRAD. 

USTED RECONOCE QUE HA LEIDO ESTE CONTRATO, QUE LO ENTIENDE Y QUE ESTA 
DE ACUERDO CON LAS CONDICIONES EN EL EXPUESTAS. USTED ACEPTA ADEMAS 
QUE ESTE CONTRATO ES EL UNICO ESTABLECIDO ENTRE USTED, DRI Y AMSTRAD, Y 
QUE ANULA CUALQUIER OTRA PROPUESTA O CONTRATO ANTERIOR, VERBAL O 
ESCRITO, Y CUALESQUIERA OTRAS COMUNICACIONES ENTRE USTED Y DRI O 
AMSTRAD EN RELACION CON ESTE ASUNTO. 
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Apendice 2 - Lexico ingles-castellano y glosario 

Algunos terminos que se utilizan frecuentemente en informatica, explicados para los usuarios del 
CPC6I28. 

Accumulator Acumulador 

Una parte del microprocesador, en el corazon del ordenador, en el que se almacenan 
temporal me nte los datos mientras se los esta procesando. Se lo utiliza en la programacion en 
codigo de maquina. Los usuarios de BASIC ni siquiera necesitan saber que existe. 



Acoustic coupler Acoplador acustico 

Tambien denominado 'modem acustico'. Dispositivo electronico mediante el cual se puede 
conectar el ordenador a la red telefonica. De esta forma el ordenador se puede integrar en una 
red de comunicacion publica, o bien comunicarse con otros usuarios de ordenadores 
domesticos para el intercambio de informacion o programas. 

Address Direccion 

Numero que identifica la posicion de una celula de la memoria del ordenador. Mediante la 
direccion se selecciona una celula concreta para leer su contenido o, en el caso de la memoria 
RAM, para leer o escribir un valor en ella. 

Adventure game Juego de aventura 

Una pasion para algunos, un aburrimiento para otros. Un juego de ordenador en el que se invita 
al jugador a participar en una serie de sucesos pseudoaleatorios con el objetivo de salir de un 
laberinto. 

Algorithm Algoritmo 

Nombre grandilocuente que se da a una formula o a una suma complicada. Secuencia de 
operaciones logicas y aritmeticas con las que se realiza una determinada tarea informatica. 

Alphanumeric Alfanumerico 

Adjetivo que describe la diferencia entre una letra o un dfgito y un caracter grafico. 

ALU (Arithmetic and Logic Unit) Unidad aritmetica y logica 

Parte del microprocesador que realiza las operaciones logicas y aritmeticas. De interes 
solamente para la programacion en codigo de maquina. 

Ambiguous File Name Nombre de fichero ambiguo 

Un nombre de fichero que contiene uno o varios sfmbolos comodfn. Los nombres de fichero 
ambiguos pueden representar al mismo tiempo varios ficheros cuyos nombres tienen algo en 

comun. 
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AMSDOS 

AMStrad Disc Operating System. Sistema operativo de disco AMSTRAD. Es el programa que 
permite que el BASIC de Locomotive acceda a los ficheros de disco. 



AMSOFT 

Division de AMSTRAD especializada en el apoyo a los usuarios de los ordenadores; suministra 
programas, perifericos y publicaciones, especfficamente con objeto de potenciar el CPC6 1 28 y 
sus muchas aplicaciones. 



Analog Analogico 

Adjetivo que caracteriza los fenomenos en los que las transiciones entre el estado inicial y el final 
se realizan de forma gradual o continua. Los ordenadores son dispositivos digitales, mientras que 
los fenomenos naturales son en su mayorfa analogicos; asi pues, el ordenador tiene que realizar 
una conversion A/D antes de poder procesar los datos recibidos de una fuente analogica. 

Animation Animacion 

Los dibujos animados son el mejor ejemplo. La animacion en los ordenadores consiste en mover 
graficos por la pantalla, tratando de simular los movimientos de los seres reales. 

Applications program Programa de aplicaciones 

Programa escrito para realizar una tarea especffica, a diferencia de los programas de 'utilidad', 
tales como ensambladores, controladores de impresora, etc., que son de interes mas general. 

Arcade game Juego grafico de salon 

Juego de ordenador basado en el movimiento de graficos (invasores espaciales, monstruos al 
acecho en un laberinto, etc.). El usuario tiene que evitar la 'muerte' de los 'buenos'. 
Generalmente sirven para ejercitar los reflejos, pero no tienen ningun valor didactico para los 
estudiantes de informatica. 

Architecture Arquitectura 

Termino que designa la organizacion general de un ordenador (relaciones entre el bus de datos, 
la UCP y los perifericos). 

Argument Argumento 

Una variable independiente. Por ejemplo, en SIN(x) la x es el argumento de la funcion SIN. 

Array Matriz 

Combinacion de elementos de un mismo tipo dispuestos en una o varias dimensiones. En el caso 
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monodimensional se denominan 'vectores'. 

Artificial intelligence (Al) Inteligencia artificial 

Tecnica de programacion que permite al programa aprender por la experiencia. 



ASCII 

American Standard Code for Information Interchange. Codigo estadounidense estandar para el 
intercambio de informacion. Forma habitual de representar dfgitos, letras y otros sfmbolos 
mediante codigos numericos. 



Assembler Ensamblador 

Programa que facilita la programacion en codigo de maquina. Las instrucciones son los llamados 
'nemonicos': grupos de letras que se recuerdan e interpretan facilmente porque dan una idea de 
la funcion que realiza cada instruccion. 



Backup Copia de seguridad 

Copia que se hace de los programas o ficheros de datos en prevision de que se borre o 
deteriore accidentalmente el original. 

Bar code Codigo de barras 

Codigo impreso legible por ordenador mediante tecnicas opticas tales como laser de baja 
potencia. (Ejemplo: el grupo de rayas verticales que se imprime en la cubierta de algunas 
revistas.) 

Base Base 

Es el numero de dfgitos que se utilizan en cada sistema de representacion numerica. En el 
sistema decimal es 10; en el binario, 2; en el hexadecimal, 16. 



BASIC 

Beginners' All-purpose Symbolic Instruction Code. Codigo de instrucciones simbolicas de uso 
general para principiantes. Es un lenguaje de programacion interpretado que se incorpora en la 
mayor parte de los ordenadores domesticos. BASIC fue disehado primordialmente como ayuda 
para la ensehanza, pues permite la comprobacion de los programas en cualquier momento de su 
desarrollo. En esto se distingue de los programas compilados, que no pueden ser probados 
parcialmente mientras el programa no este complete 



Baud Baudio 

Unidad de medida de la velocidad de transmision de datos. En un concepto distinto del de bit 
por segundo, aunque en muchos casos sus valores coincidan. 
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BCD (Binary Coded Decimal) Decimal codificado en binario 

Sistema de codificacion para numeros decimales en el que cada digito se representa por un 
grupo de cuatro bits. 



BDOS 

Basic Disc Operating System. Sistema operativo basico de disco. Parte del sistema operativo CP/ 
M que proporciona un interfaz para que el programa del usuario pueda utilizar las funciones de 
CP/M. 



Benchmark Prueba patron 

Una tarea estandar que se realiza con distintos ordenadores para comparar su velocidad, 
precision, etc. Por ejemplo, elevar al cuadrado el numero 99999 y luego calcular la rafz 
cuadrada. 



Binary Binario 

Sistema de numeracion de base 2, en el que los numeros se representan como combinaciones 
de solamente dos digitos: el y el I . (Vease la parte I del capftulo 'Cuando usted guste . '.) 

Binary number Numero binario 

Un numero representado en el sistema binario. En el BASIC del CPC6 1 28 se los identifica por el 
prefijo &X; por ejemplo, &X0I0I =5(decimal). 



BIOS 

Basic Input/Output System. Sistema basico de entrada/salida. Es la parte de CP/M que se escribe 
especfficamente para cada ordenador concrete Gestiona todas las entradas y salidas: pantalla, 
teclado, disco, etc. 



Bit 

Forma abreviada de Binary digiT (digito binario). Un digito binario es uno de los dos simbolos (el 
y el I ) con los que se representan los numeros en el sistema de base 2. 



Bit significant Interpretable bit a bit 

Hace referenda a los casos en los que se puede extraer informacion de un numero examinando 
el estado de cada uno de sus bits. El valor global en decimal no tiene significado evidente. 



Boolean algebra Algebra de Boole 

Estructura algebraica sobre variables que pueden tomar dos valores distintos: verdadero/falso, 1/ 
O, etc. 
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Boot Carga inicial 

Proceso de carga de un sistema operativo en la memoria del ordenador. Cuando se carga CP/M 
desde BASIC, lo primero que se lee es un pequeno programa autocargador, el cual realiza la 
carga del sistema operativo propiamente dicho. 

Booting, Bootstrapping Autocarga 

Los programas y sistemas operativos no se cargan a sf mismos, sino gracias a una rutina 
(generalmente grabada en ROM) que inicia el proceso de carga a partir de una determinada 
posicion de memoria. 

Buffer Tampon 

Area de memoria reservada para el almacenamiento temporal en los procesos de transferencia 
de la informacion. 



Bug Error de programacion 

Un problema no previsto en un programa: puede ir desde una 'caracteristica inesperada' (por 
ejemplo, si se pulsan cuatro teclas a un tiempo la pantalla cambia de color) hasta una secuencia 
de instrucciones que provoca la perdida del control de la maquina. 

Built-in commands Ordenes internas o incorporadas 

Ordenes que forman parte del sistema operativo. Son de ejecucion mas rapida que las ordenes 
externas, pues no tienen que ser cargadas del disco. 



Bus 

Grupo de conexiones, internas al ordenador o de entrada/salida, por las que se transmite 
informacion acerca del estado de la UCP, de la RAM o de cualquier otra parte del hardware. EL 
bus del CPC6 1 28 es accesible a traves del zocalo EXPANSION que esta en la cara posterior del 
ordenador. 



Byte Byte, octeto 

Grupo de 8 bits. Es la menor porcion de informacion que una UCP puede intercambiar con la 
memoria. 

CAD, Computer Aided Design Diserio asistido por ordenador 

Generalmente, un programa interactivo que convierte el ordenador en un tablero de dibujo 
electronico que ademas es capaz de realizar calculos matematicos. 

CAE, Computer Aided Education Ensenanza asistida por ordenador 

Programa que facilita la ensenanza en general sirviendose de los ordenadores. 
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Cartridge Cartucho 

Dispositivo de memoria externo compacto conectable al ordenador (v. g., programas en ROM, 
cuya ventaja es la gran velocidad de carga, pero que son mas caros que los suministrados en 
disco). 

Cassette 

Cinta encapsulada, ya sea virgen o con programas comerciales. 

CCP Interprete de consola 

Console Command processor. Procesador de ordenes de consola. Es el modulo de CP/M que 
interpreta y ejecuta las entradas por el teclado. 

Character Caracter 

Cualquier sfmbolo que pueda ser manejado y visualizado por el ordenador: dfgitos, letras y otros 
signos, incluidos los simbolos graficos. 

Character set Juego de caracteres 

Conjunto de todos los signos y sfmbolos disponibles en un ordenador o una impresora. El hecho 
de que un ordenador tenga un sfmbolo determinado no implica que este sea reproducible en la 
impresora. 

Character string Cadena literal 

Grupo de caracteres que pueden ser almacenados y tratados en bloque, v. g. una palabra o 
grupo de palabras. 

Chip Pastilla 

Termino popular, aunque incorrectamente utilizado, para designar un circuito integrado 
monolftico. La 'pastilla' es en realidad un trozo de silicio en el que se graba el circuito. 

Clock Reloj 

Sistema temporizador de referenda del ordenador que controla y sincroniza la secuencia de 
operaciones. Un reloj de tiempo real es el que mantiene la hora, fecha, etc. 

Code Codigo 

Aparte de otros significados, forma abreviada de referirse al 'codigo de maquina'. 

Cold start Arranque en frio 

Manual de Amstrad CPC 6 1 28 (revision 2008) - Pagina 380 



Proceso de carga e inicializacion de un sistema operative El arranque en frfo de CP/M se realiza 
cuando se ejecuta la orden :CPM de AMSDOS. 



Command Orden 

Instruccion de programa o instruccion directa de teclado. 

Compiler Compilador 

Un programa complejo que convierte programas completos escritos en un lenguaje de alto nivel, 
tal como BASIC, en codigos directamente utilizables por el microprocesador, con el 
consiguiente incremento de la velocidad de ejecucion. 

Computer generations Generaciones de ordenadores 

Diversos hitos tecnologicos han delimitado las etapas de la evolucion de la tecnologfa 
informatica; los ordenadores fabricados con un nivel de sofisticacion similar forman una 
'generacion'. 

Console mode Modo de consola 

Modo directo de CP/M; en la pantalla aparece el mensaje inductor A> para indicar que el 
sistema esta esperando que se teclee una orden interna o el nombre de un programa de ayuda. 

Corruption Corrupcion 

Destruccion o alteracion del contenido de un fichero o de la memoria, indeseada y posiblemente 
irremediable. 



CP/M 

Control Program for Microcomputers. Programa de control para microordenadores. Sistema 
operativo basado en disco, desarrollado por Digital Research, que proporciona un interfaz con el 
que utilizar una gran variedad de programas. 



CPU, Central Processing Unit Unidad central de proceso 

Nucleo del sistema informatico que interpreta las instrucciones y hace que sean obedecidas. En 
los microordenadores la UCP es el propio microprocesador. 



Cursor 

Sfmbolo movil que indica en que lugar de la pantalla aparecera el proximo caracter que se envfe 
a ella. 



Cursor control keys Teclas de movimiento del cursor 

Teclas con las que se hace que el cursor se mueva por la pantalla. Frecuentemente se las utiliza 
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tambien en los juegos graficos. 



Daisy-wheel printer Impresora de margarita 

Impresora que escribe con calidad de maquina de escribir. Los caracteres estan preformados, 
cada uno en un brazo de la 'margarita', y se los transfiere al papel al golpear el brazo con un 
martillo. 



Database Base de datos 

Coleccion de datos estructurados, integrados y coherentes, utilizables por el ordenador. 

Data capture Captacion de datos 

Recoleccion de datos enviados al ordenador desde fuentes externas. 

Debugging Depuracion 

Proceso de deteccion y eliminacion de errores de los programas. 

Decimal notation Notacion decimal 

Sistema decimal de numeracion, de base 10, que utiliza los dfgitos del al 9. Es el sistema 
ordinario. 

Default Prescrito, implicito, por defecto 

Valor que el ordenador supone en ausencia de otra especificacion por parte del usuario. Por 
ejemplo, en CP/M la unidad de disco implfcita es la A:. 

Delimiter 

Vease Separator. 

Diagnostic Diagnostico 

Mensaje emitido automaticamente por el ordenador para senalar e identificar un error de un 
programa. 

Digital 

Es el termino opuesto a 'analogico'. Describe la transicion brusca entre dos estados de un 
proceso. 

Digitizer Digitalizador 

Metodo de conversion de informacion analogica en digital. 
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Directory Directorio 

Seccion de un disco que contiene las resenas (tftulos y caracterfsticas) de los ficheros grabados 
en el. Lista del contenido de un disco. 



Disc, disk Disco 

Hoja de plastico circular, fina y plana, recubierta de material magnetico, que se utiliza como 
medio de almacenamiento de la informacion. El disco esta incluido en una envoltura protectora 
en la que hay una 'ventana' para la cabeza lectora. En el disco de 3 pulgadas la ventana esta 
cubierta por un obturador metalico que se abre automaticamente cuando se introduce el disco 
en la unidad. 



Disc drive Unidad de disco 

Mecanismo y circuitos electronicos con los que se mueve el disco para leer o grabar datos en el. 

Documentation Documentacion 

Manuales suministrados con los ordenadores o los programas, en los que se explica su 
funcionamiento. 

DOS (Disc Operating System) Sistema operativo basado en disco 

Programas que controlan todas las operaciones de la unidad de disco. 

Dot matrix Matriz de puntos 

Retfcula rectangular de puntos con la que se puede visualizar cada caracter seleccionando los 
puntos adecuados. 

Double sided De doble cara 

Hace referenda a los discos en los que se puede almacenar informacion en ambas caras. Una 
unidad de doble cara puede acceder a ambas caras del disco sin necesidad de extraer y darle la 
vuelta a este. 

Dr. LOGO 

Version de LOGO elaborada por Digital Research. LOGO es un lenguaje de programacion 
caracterizado por sus 'graficos de tortuga'. 

Dumb terminal Terminal pasivo 

Terminal de ordenador que actua solamente como medio de entrada o salida, pero sin procesar 
la informacion. 
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Edit Editar, corregir 

Corregir o modificar datos, programas o textos. 

Editor 

Un programa, generalmente grabado en la ROM del ordenador, que permite realizar el proceso 
de edicion. 



EPROM 

Erasable Programmable Read only Memory. Memoria borrable y programable de 'solo lectura'. 
Similar a la PROM, pero tal que su contenido se puede borrar con luz ultravioleta para luego 
grabar en ella un nuevo programa. Una EEPROM puede ser borrada por medios electronicos. 



Expression Expresion 

Formula utilizada en un programa para realizar cierta operacion con los datos. La propia 
expresion indica normalmente la naturaleza de los datos que puede manejar. En Dr. LOGO una 
expresion consiste en el nombre de un procedimiento seguido de las entradas requeridas. 



Fifth generation computers Ordenadores de la quinta generacion 

Grandes ordenadores que estaran disponibles en el futuro y tendran, como caracterfstica 
distintiva, la capacidad de utilizar ampliamente las tecnicas de la inteligencia artificial. 

File Fichero 

Coleccion de datos, de estructura homogenea, generalmente grabada en cinta o disco. 

File name Nombre de fichero 

En Dr. LOGO el nombre de un fichero puede estar formado por un maximo de 8 caracteres 
alfanumericos. En CP/M se permiten otros tres caracteres, precedidos por un punto. 

Firmware 

Software contenido en ROM: un hfbrido de software y hardware. 

Fixed-point number Numero en coma fija 

Un numero que se representa, manipula y almacena con la coma decimal en una posicion 
determinada. 

Floating-point number Numero en coma flotante 

Numero que se representa, manipula y almacena con la coma decimal en la posicion mas 
conveniente (en forma de mantisa y exponente). 
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Floppy disc 

Vease Disc. 

Flowchart Ordinograma 

Representacion esquematica de la evolucion de las acciones de un programa. 



Forth 

Lenguaje de programacion de alta velocidad de ejecucion. Tanto la velocidad como la 
complejidad estan a medio camino entre los lenguajes de alto nivel y el codigo de maquina. No 
es un lenguaje para principiantes. 



Function key Tecla de funcion 

Tecla que tiene asignada una tarea especifica, que puede ejecutar en lugar (o ademas) de la 
funcion grabada sobre ella. 

Gate Puerta logica 

Las puertas logicas permiten el paso de datos cuando se cumplen ciertas condiciones. Hay 
muchos tipos de puertas logicas: OR, AND, XOR, etc. 

Graphics Graficos 

Dibujo de puntos, rectas, circunferencias, etc.; es decir, todo lo que aparece en la pantalla que 
no sean caracteres'. 

Graphics character Caracter grafico 

Sfmbolo asignado a un caracter que es en sf mismo un dibujo. 

Graphics cursor Cursor grafico 

Concepto similar al de 'cursor de texto', pero invisible en el 6 1 28) y referido a la pantalla grafica. 

Graphics mode Modo grafico 

Los ordenadores mas antiguos tenian que ser puestos explfcitamente en este modo para poder 
manejar graficos. En cambio, los ordenadores personales modernos pueden mezclar textos con 
graficos. 

Graphics tablet Tablero grafico 

Periferico que convierte un dibujo en una forma manipulable por el ordenador. Es una forma de 
conversion A/D (analogica a digital). 
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Handshaking Intercambio de indicativos y sehales de control 

Secuencia de senales electronicas que inicia, comprueba y sincroniza el intercambio de datos 
entre un ordenador y un periferico o entre dos ordenadores. 

Hard copy Copia en papel 

Listado por impresora de un programa o un texto, o volcado en papel de la pantalla grafica. 

Hardware Equipos, maquinas 

Componentes electronicos o mecanicos de un sistema informatico: todo lo que tiene volumen y 
peso. 

Hexadecimal (HEX) 

Sistema numerico de base 1 6. Los numeros hexadecimales se identifican en el CPC6 1 28 por los 
prefijos & y &H. Por ejemplo, &FF= 255 (decimal). (Vease la parte I del capitulo 'Cuando usted 
guste ...'.) 

Hex file Fichero HEX 

Representacion ASCII de un fichero de orden externo o de codigo de maquina. 

High-level language Lenguaje de alto nivel 

Lenguajes del tipo de BASIC, en los que las instrucciones son mas proximas al lenguaje ordinario. 
Son mas lentos que el codigo de maquina, pero mucho mas sencillos de entender y programar. 

IEEE-488 

Uno de los interfaces estandar para la conexion de dispositivos externos a un ordenador. Similar 
al Centronics, pero no totalmente compatible con el. 

Information technology Tecnologia de la informacion 

Todo lo relativo a la utilizacion de los ordenadores en el proceso de la informacion y las 
comunicaciones: proceso de textos, transmision de datos, videotexto, teletexto, etc. 

Initialise Inicializar 

Poner en marcha un sistema. dar valores concretos a variables antes de empezar la ejecucion 
del nucleo central de un programa; por ejemplo, dimensionar matrices, declarar tipos de 
variables, etc. 

Input Entrada 
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Datos de todo tipo que entran en el ordenador procedentes del disco, del teclado, de una 
puerta R.S-232, etc. 



Instruction Instruccion 

Orden que manda al ordenador que realice alguna operacion o tarea. Un conjunto de 
instrucciones forma un programa. 



Instruction set Juego de instrucciones 

Conjunto de procesos logicos y matematicos fundamentals que puede realizar el 
microprocesador. Toda instruccion de un lenguaje de alto nivel (y tambien los nemonicos de 
ensamblador) tiene que ser convertible a una instruccion o serie de instrucciones que la UCP 
pueda reconocer. 

Integer Entero 

Numero sin parte decimal. 

Integrated circuit Circuito integrado 

Conjunto de componentes electronicos miniaturizados, grabados en una pastilla de silicio. 
(Vease tambien Chip.) 

Intelligent terminal Terminal inteligente 

Un terminal que, ademas de gestionar entradas y salidas para un ordenador central, puede 
realizar ciertas tareas de proceso de datos cuando el ordenador esta 'fuera de Ifnea'. 

Interactive Interactivo 

Hace referenda a los programas que solicitan del usuario la introduccion de informacion de 
modo inmediato: desde el control de naves espaciales en juegos graficos hasta las respuestas en 
programas educativos. La accion del usuario tiene efecto en 'tiempo real' sobre la evolucion del 
programa. 

I nte rf ace I nte rfaz 

Via de entrada y salida del ordenador, tanto para las sehales electricas como para las acciones y 
reacciones del usuario. En el CPC6 1 28, el teclado, la pantalla y las conexiones para perifericos. 

Interpreter Interprete 

Una analogfa mas entre las instrucciones de ordenador y los idiomas. Es el elemento del sistema 
que interpreta el lenguaje de alto nivel y lo convierte a una forma utilizable por UCP de modo 
inmediato. 



Manual de Amstrad CPC 6 1 28 (revision 2008) - Pagina 387 



I/O Entrada/Salida (E/S) 

Input/output. Entrada/Salida. 

Iteration Iteracion 

Uno de los mecanismos basicos de la informatica. Consiste en la repeticion de tareas (bucles), 
en las que generalmente se va modificando el valor de una variable, hasta que se cumple 
determinada condicion. 

Joystick Bastoncillo de mando 

Dispositivo de entrada al ordenador que generalmente sustituye las teclas del cursor y hace que 
los juegos graficos sean mas faciles y rapidos de controlar. 



K 

Forma abreviada y aproximada del prefijo 'kilo' (1000). Representa un 'kilobyte', que en realidad 
es 1 024 bytes. ( 1 024 es la base del sistema binario, 2, elevada a la decima potencia.) 



Keyboard Teclado 

Matriz de interruptores alfanumericos a traves de la cual se introduce informacion en el 
ordenador. 



Keyword Palabra clave 

Palabra que un programa o lenguaje de programacion reserva para una funcion u orden 
especffica. 



Least significant bit Bit menos significativo 

En un numero binario, el bit de menor peso; es decir, el que esta mas a la derecha en la 
representacion matematica habitual. 

Light pen Lapiz optico 

Otro dispositivo de entrada al ordenador que sirve para indicar una seleccion de zonas de la 
pantalla o para leer codigos de barras. 

Line number Numero de linea 

Los programas de BASIC y de algunos otros lenguajes tienen las instrucciones numeradas para 
indicar al ordenador el orden de ejecucion. 



LISP 

Acronimo de 'LISt Processor language' (lenguaje de proceso de cadenas de predicados). Otro 
lenguaje de alto nivel. 
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Logic Logica 

Entre otras acepciones, conjunto de componentes electronicos que realizan las operaciones 
logicas elementales en las que en ultimo termino se basa el funcionamiento del ordenador. 

Logical device Dispositivo logico 

La representacion de un dispositivo puede no coincidir con su forma ffsica. Por ejemplo, el 
dispositivo logico LST de CP/M puede ser asignado a la puerta Centronics, pero tambien a la 
pantalla del monitor. 



LOGO 

Nombre de un lenguaje de programacion tornado del termino griego 'logos', que significa 
'palabra'. LOGO ha sido disehado para servir como ayuda en la ensehanza de la informatica 
elemental. 



Loop Bucle 

Seccion de un programa que se ejecuta reiteradamente hasta que se cumple determinada 
condicion. 



Low-level language Lenguaje de bajo nivel 

Por ejemplo, el lenguaje ensamblador. Un lenguaje en el que cada instruccion corresponde a una 
instruccion de codigo de maquina. 

LSB, Least Significant Bit Bit menos significativo, bms 

En un numero binario, el bit de menor peso, es decir, el que esta mas a la derecha en la 
representacion matematica habitual. 

LSI, Large Scale Integration Integracion a gran escala 

Etapa avanzada del desarrollo de circuitos integrados, en la que incorporan miles de 
componentes electronicos en una sola pastilla de silicio. 

Machine code Codigo de maquina 

Lenguaje de programacion que es directamente comprensible y utilizable por el 
microprocesador. 

Machine readable Accesible a la maquina 

Este termino hace referenda a datos e informacion que puedan ser introducidos directamente 
en la maquina, sin necesidad de conversion. 
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Man-machine interface Interfaz hombre-maquina 

Dispositivo que facilita la interaccion entre el usuario y el ordenador (teclado, sonido, etc.) 

Matrix Matriz 

Disposicion de los puntos con los que se forman los caracteres en la pantalla o en las impresoras 
de 'matriz de puntos'. En otra acepcion, variables que con un solo nombre pueden contener 
multiples valores, a los que se accede mediante los 'indices'. 

Memory Memoria 

Especie de 'aparcamiento' en la maquina, en la que esta almacena los programas y los datos. La 
memoria puede ser RAM (memoria de acceso aleatorio), en la que se puede escribir y leer, o 
ROM (memoria de 'solo lectura'), en la que solamente se puede leer. 

Memory map Mapa de memoria 

Esquema en que se indica que zonas de memoria estan dedicadas a las diversas funciones: 
pantalla, sistema operativo, variables, etc. 

Menu Menu 

Lista de opciones que se ofrece al usuario de un programa. 

Microprocessor Microprocesador 

Circuito integrado que controla el funcionamiento del ordenador. Recibe y ejecuta las 
instrucciones que le entrega el interprete de BASIC y controla todas las interfaces. 

Modem, Modulator/Demodulator Modulador/demodulador, Modem 

Dispositivo que permite conectar el ordenador a una Ifnea telefonica o la conexion a otros 
ordenadores o terminates remotos. 

Monitor 

Pantalla en la que se visualizan los graficos, listados, mensajes, etc. Tambien el programa que 
permite observar la operacion basica del ordenador. 

Mouse Raton 

Seguidor boca abajo, o bola rodante. Al desplazarlo con la mano sobre una superficie plana, 
mueve el cursor por la pantalla. 

MSB, Most Significant Bit Bit mas significativo, BMS 

En un numero binario, el bit de mayor peso; es decir, el que esta mas a la izquierda. 
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Network Red 

Cuando se interconectan varios ordenadores para intercambiar programas y datos, via modem, 
cable, etc., se forma una 'red'. 



Nibble Cuarteto 

Medio byte, es decir, un numero binario de cuatro bits. 

Node Nodo 

Unidad de espacio de trabajo en LOGO. Generalmente un nodo consume 4 bytes de espacio de 
memoria. 

Noise Ruido 

El sistema de sonido del CPC6 1 28 permite generar ruidos aleatorios para simular efectos 
sonoros tales como explosiones, disparos, etc. 

Numeric keypad Teclado numerico 

Grupo de teclas numericas destinadas a facilitar la introduccion de numeros en el ordenador. En 
el caso del CPC6 1 28, estas teclas son ademas definibles por el usuario. 

OCR, Optical Character Recognition Lectura optica de caracteres 

Sistema de lectura automatica de caracteres escritos y de conversion a datos utilizables por el 
ordenador. 



Octal 

Sistema de numeracion de base 8 en que cada digito (del al 7) se presenta con tres digitos 
binarios. 



Off line Fuera de linea 

Situacion en la que se encuentra un periferico cuando no esta activamente conectado al 
ordenador. 



On line En linea 

Termino opuesto a Off line/Fuera de linea. 

Operating system Sistema operativo 

Programa que gestiona el manejo de la memoria, la ejecucion de programas, prioridades, control 
de tiempos, etc. Interfaz entre la maquina y los programas del usuario. 
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Operator Operador 

Parte de una operacion aritmetica o logica que describe en que consiste la operacion. 

Output Salida 

Todo lo que sale del ordenador como resultado de algun proceso o calculo. 

Overwrite Sobreescribir 

Escribir borrando lo anterior. Borrar parte de la memoria o la pantalla, a veces 
involuntariamente, al escribir nuevos datos en ella. 

Paddle Empunadura 

Mando principal del joystick. 

Page zero P agin a cero 

Zona de memoria, en CP/M entre las posiciones &0000 y &0I00, en la que se almacenan 
parametros esenciales del sistema operative 

Parallel interface Interfaz paralelo 

Sistema de conexion del que es ejemplo el interfaz para impresora del CPC6 1 28. Cada Ifnea del 
bus de datos se conecta a la correspondiente patilla del corrector de la impresora. Los datos se 
transmiten en grupos simultaneos. Este metodo de transmision es mucho mas rapido que el que 
se consigue con un interfaz serie, en que los dfgitos binarios se envian uno tras otro, por una sola 
Ifnea. 



Pascal 

Lenguaje estructurado de alto nivel que ha de ser compilado antes de su ejecucion y que, por 
consiguiente, es muy rapido. Es el lenguaje que habitualmente se estudia despues de BASIC. 



PEEK 

Funcion de BASIC que examina una posicion de memoria especificada e informa de su 
contenido. 



Peripheral Periferico 

Impresoras, modems, joysticks, magnetofonos, etc.; cualquier aparato que pueda ser conectado 
al ordenador para hacerlo mas util. 

Physical device Dispositivo fisico 
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Dispositivo que realmente existe (o sea, pieza de hardware), representable por un dispositivo 
logico. 



Pixel (picture element) Punto grafico 

La menor area de la pantalla que puede ser controlada con independencia de las demas. 

Plotter Trazador automatico 

Trazador especial que dibuja con plumas, tanto caracteres como dibujos propiamente dichos. 

POKE 

Orden de BASIC que escribe un valor en una posicion de memoria especificada. 

Port Puerta 

Lugar especfficamente direccionable de un interfaz para la entrada o salida de datos. 

Portability Adaptabilidad 

Caracterfstica de un lenguaje o programa que hace facil su adaptacion a otra maquina, 
generalmente como consecuencia de la compatibilidad del sistema operativo (v. g., el CP/M de 
Digital Research). 

Primitives Primitivas 

Procedimientos, operaciones u ordenes basicos en los que consiste Dr. LOGO. 

Printer Impresora 

Maquina que escribe en papel los datos enviados por el ordenador. 

Procedure Procedimiento 

Serie de expresiones o instrucciones que indican al ordenador como realizar una tarea. 

Program Programa 

Conjunto de instrucciones que gobiernan el funcionamiento del ordenador para hacer que 
realice una tarea. Puede tratarse de una simple rutina en codigo de maquina o de una aplicacion 
completa, tal como un paquete de contabilidad o un procesador de textos. 

Programming language Lenguaje de programacion 

Lenguaje en el que escribe un programa, consistente en un conjunto de reglas que indican como 
se utilizan las palabras y los numeros. 
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PROM 

Programmable Read Only Memory. Memoria programable de 'solo lectura'. Circuito integrado 
de memoria que, una vez grabado, ya no se puede borrar. (Vease tambien EPROM.) 



Prompt Mensaje inductor 

Un corto mensaje o grupo de caracteres que recuerda al lector que el ordenador esta 
esperando una entrada. Por ejemplo, en CP/M es >; en LOGO, ?. 



PSU, Power Supply Unit Fuente de alimentacion 

Circuito que convierte la tension alterna de la red a una tension continua adecuada para los 
circuitos del ordenador (y de los perifericos). 

QWERTY keyboard Teclado tipo QWERTY 

Teclado del tipo de las maquinas de escribir estandar. 



RAM 

Random Access Memory. Memoria de acceso aleatorio. Memoria de la que se puede leer y en la 
que se puede escribir en el curso normal de la ejecucion de un programa, en cualquier direccion 
y en cualquier orden. 



Random access Acceso aleatorio 

Termino que hace referenda a la posibilidad de leer o escribir datos en un disco en el orden que 
se desee. 



Random number Numero aleatorio 

Numero generado por el ordenador que no es ni repetible ni predecible. El CPC6I28 genera 
una sucesion de numeros pseudoaleatorios. 



Raster scan Barrido de trama 

Sistema de 'escritura' en la pantalla, en que las imagenes se forman mediante un barrido de Ifneas 
horizontales. 



R/O, Read only De 'solo lectura' 

Atributo de un disco, de un fichero, de una unidad de disco, etc., que impide la escritura y la 
modificacion de los datos. 



R/W, Read write De lectura/escritura 
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Atributo de un disco, de un fichero o de una unidad de disco que permite tanto la lectura como 
la escritura o la modificacion de los datos. 



Real number Numero real 

Numero que consta (o puede constar) de parte entera y parte decimal. 

Real time En tiempo real 

Efectos que ocurren en el momento presente, a diferencia de aquellos que solo se aprecian 
cuando ha terminado el proceso que los provoco. 

Record Registro 

Unidad de medida de ficheros. En CP/M los registros son de 128 bytes. 

Recursion Recursividad 

Serie de etapas repetidas de un programa o una rutina, tales que cada una esta relacionada con 
la anterior. 

Refresh Renovacion, refresco 

Actualizacion de la informacion, ya sea de la pantalla o de la memoria. No siempre es un proceso 
destructivo; puede tratarse de una confirmacion de la situacion actual, en dispositivos que de 
otro modo perderfan la informacion. 

Register Registro de maquina 

Posicion de memoria transitoria de la UCP utilizada para almacenamiento provisional de los 
datos. 

(REM) Remark Comentario, observacion 

Instruccion de un programa que el ordenador no ejecuta; sirve para que el programador escriba 
anotaciones, o para escribir la fecha o numero de version del programa. 

Reserved word Palabra reservada 

Una palabra que tiene un significado especial para un programa, y que por consiguiente no se 
puede utilizar fuera del contexto predefinido. Por ejemplo, BASIC no puede aceptar NEW como 
nombre de una variable, pues esa palabra esta reservada para otro proposito. 

Resolution Resolucion 

La resolucion es tanto mayor cuanto menor sea el tamaho de los pixels. Da una idea de como de 
'finos' pueden ser los graficos en un ordenador. 
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Reverse Polish notation Notacion polaca inversa 

Metodo de escribir operaciones aritmeticas, adoptado por ciertos fabricantes de calculadoras, 
en el que los operadores (+, *, /) se ponen despues de los operandos. 



RF Modulator Modulador de radiofrecuencia 

Metodo por el cual las senales de video del ordenador se codifican y transmiten a la entrada de 
antena de un televisor. 



ROM 

Read only Memory. Memoria de 'solo lectura'. Memoria que no se puede borrar. 

Routine Rutina 

Una parte del programa que realiza una tarea especffica. Un subprograma contenido en un 
programa mas general, o que se ha escrito de forma independiente y puede ser incorporado a 
otros programas. 

RS-232C 

Un sistema concreto estandarizado para los interfaces de comunicacion en serie. Los 
dispositivos que estan en los dos extremos de la Ifnea deben estar configurados de acuerdo con 
las normas EIA RS-232C. 

Screen editor Editor de pantalla 

Editor de textos o de programas que permite llevar el cursor a cualquier lugar de la pantalla para 
modificar su contenido. 

Scrolling Desplazamiento vertical, rodadura 

Termino que describe la forma en que la pantalla Yueda' hacia arriba cuando se ha llegado a la 
ultima Ifnea y se necesita una nueva. 

Sector 

Memoria minima direccionable en un disco. El sistema de AMSTRAD esta basado en sectores de 
5 1 2 bytes. 

Separator Separador 

Signo que marca el Ifmite entre palabras reservadas y otros elementos del programa. 

Serial interface Interfaz serie 

Este termino hace referenda normalmente al estandar RS-232C, aunque existen otros metodos 
de transmision en serie de datos. 
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Simulation Simulacion 

Tecnica de emulacion de los procesos reales en un ordenador; por ejemplo, simulacion de 
vuelo, de la conduccion de automoviles, etc. 



Single sided De una sola cara 

Hace referenda al tipo de disco en el que solo se pueden grabar datos en una cara. 

Software Programacion, software 

Conjunto de programas que hacen que el ordenador funcione; en disco, cinta, ROM, etcetera. 

Software engineering Ingenieria de programacion 

Tecnicas de programacion consideradas desde un punto de vista cientffico, para distinguirlas de 
las no organizadas o arbitrarias. 

Sound generator Generador de sonido 

Parte de un ordenador (circuitos o programas) que genera sonido y ruido. 

Speech recognition Reconocimiento de voz 

Conversion de la palabra hablada en informacion reconocible por el ordenador. 

Speech synthesis Sintesis de voz 

Generacion de voces simuladas mediante una combinacion de circuitos y programas. 



Spread sheet Hoja electronica 

Un programa que permite introducir datos numericos para disponerlos en filas y columnas y 
para hacer con ellos manipulaciones aritmeticas. Al modificar uno de los datos se rehacen los 
calculos para actualizar los resultados por filas y columnas. 



Sprite Agente grafico movil 

Objeto grafico que se puede mover libremente por la pantalla, generado por software o por 
hardware de forma tal que pueda aparecer y desaparecer de modo aparentemente aleatorio. 

Stack Pila 

Area de memoria utilizada para almacenar datos provisionalmente y organizada de forma que el 
ultimo dato depositado en ella es el primero que se recupera. 
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Stream Canal 

Vfa de salida del ordenador; por ejemplo, la pantalla, la impresora o el disco. 

String Cadena literal 

Un objeto formado por caracteres cualesquiera que el programa no puede tratar como 
numerico. Puede constar solamente de dfgitos, pero el ordenador no lo considera como numero 
mientras no se lo convierta a numero mediante la instruccion adecuada. 

Structured programming Programacion estructurada 

Tecnica de programacion logica y premeditada con la que se escriben programas que fluyen de 
principio a fin en etapas bien diferenciadas. 

Sub-routine 

Vease Routine, rutina. 

Syntax error Error de sintaxis 

Cuando se infringen las reglas sobre la utilizacion de palabras clave y variables, BASIC emite este 
mensaje. 

System tracks Pistas del sistema 

Pistas reservadas en el disco para el sistema CP/M. 

Terminal 

Teclado de entrada con pantalla, o bien con teletipo de salida. 

TPA, Transient Program Area Area para programas transitorios 

Area de memoria que empieza en &0I00, en la que en CP/M se almacena los programas de 
usuario y los datos por estos generados. 

Track Pista 

Las pistas son coronas circulares del disco. Cada una se divide en un numero fijo de sectores. Las 
pistas y sectores se inscriben en areas especfficas del disco en el proceso de inicializacion. 

Transient program Programa transitorio 

Un programa de ayuda de CP/M, tal como PIP, que puede ser cargado en la TPA sin mas que 
escribir su nombre en el teclado. 

Truncated Truncado 
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Hace referencia a un numero o una cadena que han sido recortados por la izquierda o por la 
derecha. Cuando el truncamiento es intencionado, suele incluir el redondeo del numero. Si es 
intencionado, los caracteres sobrantes se eliminan para encajar el numero o la cadena en el 
espacio disponible. 



Truth table Tabla de verdad 

El resultado de toda operacion logica puede ser 'verdadero' o 'falso' (para el ordenador, I o 0). 
La tabla de verdad da todos los resultados posibles de la operacion en funcion del valor de los 
operandos. 



Turtle Tortuga 

Un sfmbolo con forma de punta de flecha que funciona como cursor grafico en la pantalla grafica 
de Dr. LOGO. 



Turtle graphics Graficos de tortuga 

Imagen que deja la tortuga de Dr. LOGO al moverse por la pantalla. 

UDK, User Defined Keys Teclas definidas por el usuario 

En el CPC6 1 28 hay 32 teclas a las que se pueden asignar tareas concretas, que el ordenador 
realiza en cuanto el usuario las pulsa. 

Unsigned number Numero entero sin signo 

Numero entero interpretado como positive 

Utility Programa de ayuda 

Un programa completo con el que se realiza una operacion comun a varias aplicaciones; por 
ejemplo, ordenar alfabeticamente o copiar ficheros. 

Variable 

Un dato o grupo de datos puede ser identificado en un programa mediante un nombre; su valor 
puede variar como consecuencia de la ejecucion del programa. 

Warm start Arranque en caliente 

Es el que se realiza cuando se pulsa ECTRUC en CP/M. Reinicializa el subsistema de disco y 
devuelve el control al modo directo de consola de CP/M. 

Wildcard character Simbolo comodin 

Este termino hace referencia a los sfmbolos * y ?. Dr. LOGO solamente admite el ?. El * 
representa cierto numero de sfmbolos ?. Al mencionar nombres de ficheros, se pueden construir 
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nombres ambiguos poniendo simbolos ? en lugar de caracteres. 



Write protection Proteccion contra escritura 

Un mecanismo que impide escribir en un disco o fichero. Un disco protegido contra escritura es 
un disco de 'solo lectura'. 
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Apendice 3 - Que usted lo disfrute 

Rebotes 

Sencillo y apasionante. Para un jugador contra el ordenador. Teclado o joystick. 

10 'REBOTES, por Alexander Martin 

20 'copyright (c) AMSOFT 1984 

30 ' 

40 MODE 1:B0RDER 1:INK 0,1:INK 1,26:INK 2,24:INK 3,6 

50 SPEED KEY 15,2 

60 ENV 1,1,18,0,11,0,10 

70 ENT 1,10,2,2 

80 ENV 3,1,0,16,5,-3,2 

90 ENV 2,5,3,3,1,-21,22,9,-3,2 

100 ENT -2,10,2,2,5,-7,1,2,11,3,2,-4,8 

110 ' 

120 ' 

130 MOVE 30,32:DRAWR 0,400, 1:M0YE 610,32:DRAWR 0,400,1 

140 PEN 3:L0CATE 3,1:PRINT STRINGS (36 , 143) 

150 PEN 2:L0CATE 3,2:PRINT STRINGS (36, 143) 

160 PEN 1:F0R r=5 TO 6:L0CATE 3,r:PRINT STRINGS (36, 143) :NEXT r 

170 bx=9 

180 pelotas=5:puntos=0 

190 PEN 1:G0SUB 680: CLEAR INPUT 

200 IF INKEY$<>CHR$(32) AND J0Y(0)<16 THEN 200 

210 LOCATE 3,23:PRINT SPACES (36) : LOCATE 1,24:PRINT SPACE$(40); 

220 60SUB 690:G0SUB 660: GOTO 280 

230 ' 

240 ' 

250 LOCATE bx,24:PRINT" " ;STRING$ (4, 131) ;" ":RETURN 

260 ' 

270 ' 

280 xa=l:ya=l:IF INT(RND*2)=1 THEN xa=-xa 

290 PEN 1:G0SUB 250 

300 ORIGIN 0,400 

310 x=bx+4:y=ll:xl=x:yl=y 

320 ' 

330 ' 

340 xl=x+xa:yl=y+ya 

350 IF xl=3 OR xl=38 THEN xa=-xa 

360 G0SUB 540 

370 IF yl=24 AND xl>bx+l AND xl<bx+6 THEN ya=-ya:yl=yl-2: SOUND 130,44,8,7,l,l:a= 

((x>bx+5)0R(x<bx+2)):IF a=-l THEN xa=xa*a:xl=xl+xa:yl=yl+l 

380 IF y=25 THEN LOCATE x,y:PRINT" ":G0T0 500 

390 GOSUB 250 

400 t=TEST((16*xl)-l,-(16*yl)-l) 

410 IF t<>0 THEN ya=-ya:xz=xl:yz=yl:yl=yl+ya:GOSUB 590:IF t=2 THEN 

puntos=puntos+10:G0SUB 660 

420 IF t- 3 THEN puntos=puntos+20:G0SUB 660 

430 IF t-1 THEN puntos=puntos+5:G0SUB 660 

440 IF yl-1 THEN ya-1 

450 LOCATE x,y:PRINT" ":L0CATE xl,yl:PRINT CHR$(231) :x=xl :y=yl 

460 IF y-1 OR x=3 OR x=38 THEN SOUND 129,78,8,7,1,1 
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470 GOTO 340 

480 ' 

490 ' 

500 pelotas=pelotas-l:SOUND 132, 19, 46,12,2, 2:IF pelotas=0 THEN GOTO 620 

510 GOSUB 660: GOTO 280 

520 ' 

530 ' 

540 IF (INKEY(8)=0 OR INKEY(74)=0) AND bx>2 THEN bx=bx-2: RETURN 

550 IF (INKEY(1)=0 OR INKEY(75)=0) AND bx<32 THEN bx=bx+2 : RETURN 

560 RETURN 

570 ' 

580 ' 

590 LOCATE xz,yz: PRINT" ": RETURN 

600 ' 

610 ' 

620 IF puntos>=maximo THEN maximo=puntos 

630 GOSUB 660:puntos=0:pelotas=5:G0T0 130 

640 ' 

650 ' 

660 SOUND 130,0,20,13,3,0,31:L0CATE 1,25:PRINT "Maximo" ;maximo; 

670 LOCATE 15,25:PRINT "Puntos";puntos: LOCATE 30,25:PRINT "Pelotas";pelotas:RETURN 

680 LOCATE 3,23:PRINT"Pul se barra espaciadora para empezar": RETURN 

690 LOCATE 1,25: PRINT SPACE$ (40) ;: RETURN 
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Bombardero 

Una variacion sobre un tema clasico. Para un jugador contra el ordenador. Solo teclado. 



10 'BOMBARDERO por DAVE TOWN 

20 'copyright (c) AMSOFT 1984 

30 ' 

40 MODE 1:CLS:INK 0,0:B0RDER 0:INK 1,18:INK 2,6:INK 3,4:INK 5,15:INK 6,2:INK 7,24:INK 

8,8:INK 9,26:INK 10,10:INK 11,20:INK 12,12:INK 13,16:INK 14,14:INK 15,21 

50 SYMBOL AFTER 240:SYMB0L 241,&40,&60,&70,&7F,&7F,&EF,&7,8 l 0:SYMB0L 

242,&0,&32,&7A,&FE,&FA,&F2,&E0,&0 

60 puntos=0:maxi=0:avi$=CHR$(241)+CHR$(242):x=2:y=2:cae=0:a=2:b=2 

70 G0SUB 480 

80 CLS 

90 PEN 2:L0CATE 1 , 15 : INPUT" El i ja nivel: (AS) a 5 (PRINCIPIANTE) ",nivel 

100 IF nivel<0 OR nivel>5 THEN GOTO 90 

110 nivel=nivel+10 

120 LOCATE 1,15:PRINT CHR$ (18) ;: LOCATE 1 , 15 : INPUT" El i ja velocidad: (MAX) a 100 

(MIN) ",vel 

130 IF vel>100 OR vel<0 GOTO 120 

140 ' 

150 'Edificios 

160 ' 

170 MODE 0:F0R base=5 TO 15:F0R altura=21 TO INT(RND(l)*8+ni vel ) STEP-1:L0CATE 

base,altura:PEN base-2:PRINT CHR$(143)+CHR$(8)+CHR$(11)+CHR$(244) ; :NEXT:NEXT 

180 PLOT 0,20,4:DRAW 640,20,4 

190 LOCATE 1,25:PEN 2:PRINT"PUNT0S";puntos; :L0CATE 13,25:PRINT"MAX";maxi ; 

200 ' 

210 'Juego 

220 ' 

230 LOCATE x-l,y:PRINT" "; 

240 PEN 1:L0CATE x,y:PRINT avi$;:PEN 2 

250 IF y=21 AND x=15 THEN GOTO 290: ELSE GOTO 340 

260 ' 

270 'Aterriza 

280 ' 

290 FOR c=0 TO 1000: NEXT 

300 puntos=puntos+100-(nivel*2):nivel=nivel-l:x=2:y=2:a=2:b=2:cae=0 

310 IF nivel<10 THEN nivel=10:vel=vel -20 

320 IF vel<0 THEN vel=0 

330 GOTO 150 

340 FOR c=0 TO vel: NEXT 

350 x=x+l 

360 IF x=18 THEN LOCATE x-l,y:PRINT CHR$(18) ; :x=2:y=y+l: LOCATE x,y:PEN 1:PRINT 

avi$;:PEN 2 

370 a$=INKEY$:IF a$=" " AND cae=0 THEN cae=l:b=y+2:a=x 

380 IF y=21 THEN cae=0 

390 IF cae=l THEN LOCATE a,b:PRINT CHR$ (252) ;: LOCATE a,b-l:PRINT" ";:b=b+l:IF b>21 

THEN LOCATE a,b:PRINT" ";:L0CATE a,b-l:PRINT" ";:L0CATE a,b-l:PRINT" 

":a=0:b=0:cae=0:SOUND 3,4000,10,12,0,0,10 

400 ga=(a-0.5)*32:gb=400-(b*16) :bomba=TEST(ga,gb) 

410 IF bomba>0 THEN GOTO 670 

420 gx=((x+1.5)*32) :gy=408-(y*16) :choque=TEST(gx,gy) 

Manual de Amstrad CPC 6 1 28 (revision 2008) - Pagina 403 



430 IF choque>0 THEN GOTO 570 

440 GOTO 230 

450 ' 

460 ' Instrucciones 

470 

480 LOCATE 1,2:PEN l:PRINT"Usted esta pilotando un avion sobre una ciudad desierta y 

tiene que pasar sobre los edificios para aterrizar y repostar.Su avion se mueve de 

izquierda a derecha. "; :PRINT 

490 PRINT: PRINT"A1 llegar a la derecha, el avion vuelve a salir por la izquierda, 

pero MAS BAJO. Dispone de un numero limitado de bombas y puede hacerlas caer sobre los 

edifici-cios pulsando la BARRA ESPACIADORA. "; : PRINT 

500 PRINT: PRINT"Cada vez que aterriza, sube la alturade los edificios y la 

velocidad.";:PRINT:PRINT:PRINT"UNA VEZ DISPARADA UNA BOMBA.YA NO PUEDE DISPARAR 

OTRAMIENTRAS NO HAYA EXPLOSIO-NADO LA PRIMERA!!!": 

510 PEN 2:L0CATE l,24:PRINT:PRINT"Pul se una tecla para empezar."; 

520 a$=INKEY$:IF a$="" GOTO 520 

530 RETURN 

540 ' 

550 'Colision 

560 ' 

570 LOCATE x-l,y:PRINT 

CHR$(32)+CHR$(32)+CHR$(32)+CHR$(253)+CHR$(8)+CHR$(238)+CHR$(8); 

580 FOR t-1 TO 10:S0UND 7,4000,5,15,0,0,5:PEN t:PRINT 

CHR$(253)+CHR$(8)+CHR$(238)+CHR$(8)+CHR$(32)+CHR$(8);:F0R tm-0 TO 50: NEXT: NEXT: PEN 2 

590 CLS:LOCATE l,5:PRINT"Ha conseguido";puntos;"puntos. " 

600 IF puntos>maxi THEN maxi=puntos: LOCATE 1,8:PRINT"BATI0 EL RECORD!!"; 

610 puntos=0: LOCATE l,12:PRINT"Pul se V para volver a empezar"; 

620 a$=INKEY$:IF a$="v" OR a$="V" GOTO 630 ELSE GOTO 620 

630 PEN 1:M0DE l:x=2:y=2:a=2:b=2:G0T0 90 

640 ' 

650 'Edificio bombardeado 

660 ' 

670 LOCATE a,b-l:PRINT" "+CHR$(8) ; :PEN 4:F0R tr-1 TO INT(RND(l)*3)+l:puntos=pun- 

tos+5:S0UND 3,4000,10,12,0,0,10:L0CATE a,b:F0R t=0 TO 4:PRINT 

CHR$(253)+CHR$(8)+CHR$(32)+CHR$(8);:NEXT:b=b+l 

680 IF b=24 THEN b=b-l 

690 NEXT 

700 LOCATE 7,25:PEN 2:PRINT puntos; :cae=0:a=x:b=y:PEN 4:G0T0 230 
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Tele term 

Con el empezo todo, y sigue siendo divertido. Para dos jugadores, o para uno contra el 
ordenador. Teclado o joystick(s). 



10 ' TELE TENIS, por David Radisic 
20 ' copyright (c) AMSOFT 1985 
30 ' 

40 DEFINT a-z 
50 comp=l 

60 ENV 1, =11, 20, =9, 5000 

70 MODE 1:INK 0,10:B0RDER 10:INK 1,26:INK 2,18:INK 3,0 
80 G0SUB 710 
90 G0SUB 150 
100 G0SUB 330 
110 G0SUB 420 

120 LOCATE 13,1:PRINT USING"#### ";puntosl; 
130 LOCATE 35,1:PRINT USING"#### ";puntos2; 
140 GOTO 100 
150 PEN 2 
160 x(l)=3:y(l)=5 
170 x(2)=37:y(2)=22 

180 borde$=CHR$(233) :borde2$=STRING$(2,207) 

190 LOCATE 1,3:PRINT STRINGS (39, borde$) : PRINT STRING$(39, borde$) 
200 FOR 1-1 TO 19 
210 PRINT borde2$;TAB(38);borde2$ 
220 NEXT 

230 PRINT STRING$(39,borde$):PRINT STRING$(39,borde$) ; 
240 WINDOW #1,3,37,5,23 
250 CLS#1 

260 SYMBOL 240,0,60,126,126,126,126,60,0 
270 raq$="|"+CHR$(8)+CHR$(10)+"j" 
280 bor$=" "+CHR$(8)+CHR$(10)+" " 
290 pel$=CHR$(240) 
300 PEN 3 

310 LOCATE 2,l:PRINT"Jugador 1:0";:L0CATE 24,1: PRINT" Jugador 2:0" 
320 RETURN 

330 n=INT(RND*2):CLS#l:punto=0 
340 PEN 3 

350 FOR 1-1 TO 2:L0CATE x(i) ,y(i) :PRINT raq$;:NEXT 
360 ON n GOTO 390 
370 xb=21:dx=l 
380 GOTO 400 
390 xb=19:dx=-l 
400 yb=12:dy=INT(RND*3)-l 
410 RETURN 
420 G0SUB 600 
430 oxb=xb:oyb=yb 
440 G0SUB 500 

450 IF nota>0 THEN SOUND 129,nota,50,15,l 
460 LOCATE oxb,oyb: PRINT" "; 
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470 LOCATE xb,yb: PRINT pel$ 

480 IF punto=0 THEN 420 

490 RETURN 

500 LOCATE xb+dx,yb+dy:ch$=COPYCHR$(#0) 

510 nota=0 

520 IF ch$=" " THEN xb=xb+dx:yb=yb+dy: RETURN 

530 IF ch$="|" THEN dx=2-dx-2:dy=INT(RND*3)-l:nota=200:RETURN 

540 IF ch$=LEFT$(borde2$,l) THEN 570 

550 IF ch$=borde$ THEN dy=2-dy-2:nota=250 

560 RETURN 

570 IF dx>0 THEN puntosl=puntosl+l ELSE puntos2=puntos2+l 

580 punto=l:nota=2000 

590 RETURN 

600 p(l)=(INKEY(69)>=0)+(INKEY(72)>=0)+ABS((INKEY(71)>=0) +(INKEY(73)>=0))*2 

610 IF comp=l THEN p(2)=ABS(y(2)<yb)*2+(y(2)>yb) :GOTO 630 

620 p(2)=(INKEY(4)>=0)+(INKEY(48)>=0)+ABS((INKEY(5)>=0)+( INKEY(49)>=0))*2 

630 PEN 3 

640 FOR i=l TO 2 

650 LOCATE x(i) ,y(i)+p(i) :ch$=C0PYCHR$(#0) 

660 IF ch$=" " THEN LOCATE x(i) ,y(i) :PRINT bor$; :y(i)=y(i)+R0UND(p(i)/2) 

670 LOCATE x(i),y(i) :PRINT raq$; 

680 NEXT 

690 PEN 1 

700 RETURN 

710 PEN 2:PRINT:PRINT TAB(15) "Ping-Pong" :PRINT TAB(15)" " 

720 PEN 3:PRINT:PRINT TAB(10)"Para mover raquetas: " 

730 PRINT: PRINT: PEN 1 

740 PRINT" Jugador 1 Jugador 2 Direccion" :PRINT 

750 PRINT" A 6 ARRIBA" 

760 PRINT" Z 3 ABAJO": PRINT 

770 PEN 3:PRINT:PRINT TAB(14)"o con joysticks" 

780 PRINT: PRINT: PRINT: PRINT 

790 PEN 2 

800 PRINT TAB(7)"Elija <1> o <2> jugadores" 

810 i$=INKEY$:IF i$<>"l" AND i$<>"2" THEN 810 

820 IF i$="l" THEN comp=l ELSE comp=0 

830 MODE 1: RETURN 
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Esgrima electrico 

iTrate de 'tocar' a su oponente! Para dos jugadores. Teclado o joysticks. 



10 ' ESGRIMA ELECTRICO, por Alexander Martin 

20 ' copyright (c) AMSOFT 1985 

30 ' 

40 DEFINT a-z 

50 MODE 

60 G0SUB 980 

70 G0SUB 1370 

80 G0SUB 270 

90 G0SUB 1520 

100 G0SUB 1370 

110 G0SUB 1270 

120 ' 

130 ' 

140 REM empezar 

150 IF termina THEN GOTO 100 

160 G0SUB 240 

170 FRAME: IF pldir THEN G0SUB 570 ELSE FRAME: FRAME 

180 FRAME: IF p2dir THEN G0SUB 620 ELSE FRAME: FRAME 

190 IF plsa=-l THEN G0SUB 670 

200 IF p2sa=-l THEN G0SUB 720 

210 GOTO 140 

220 ' 

230 ' 

240 IF j THEN 380 ELSE 480 

250 ' 

260 ' 

270 CLS:PEN 6 

280 PRINT: PRINT" ELIJA CONTROL" 

290 PRINT: PRINT: PRINT: PRINT" pulse J/T [ENTER]" 

300 LOCATE 4,10:PRINT"J0YSTICKS";TAB(4) ;"0 TECLAS" 

310 LOCATE 12, 10: IF j THEN PRINT"*": ELSE PRINT" " 

320 LOCATE 12, 11: IF j THEN PRINT" ":ELSE PRINT"*" 

330 IF N0T(INKEY(45)) THEN j=-l 

340 IF N0T(INKEY(51)) THEN j=0: '37 en original: K 

350 IF N0T(INKEY(18)) THEN RETURN ELSE 310 

360 ' 

370 ' 

380 pl=J0Y(0):p2=J0Y(l) 

390 pldir=(pl AND l)*-l+(pl AND 2)*0.5 

400 p2dir=(p2 AND l)*-l+(p2 AND 2)*0.5 

410 IF pi AND 16 THEN plsa=plsa-l:IF plsa=-l THEN AFTER 15 GOSUB 770 

420 IF p2 AND 16 THEN p2sa=p2sa-l:IF p2sa=-l THEN AFTER 15 GOSUB 770 

430 IF plsa THEN pldir=0 

440 IF p2sa THEN p2dir=0 

450 RETURN 

460 ' 

470 ' 

480 p2dir=((INKEY(4)=0)*l)+((INKEY(5)=0)*-l) 

490 pldir=((INKEY(69)=0)*l)+((INKEY(71)=0)*-l) 
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500 IF INKEY(63)=0 THEN plsa=plsa-l:IF plsa=-l THEN AFTER 15 GOSUB 770 

510 IF INKEY(10)=0 THEN p2sa=p2sa-l:IF p2sa=-l THEN AFTER 15 GOSUB 770 

520 IF plsa THEN pldir=0 

530 IF p2sa THEN p2dir=0 

540 RETURN 

550 ' 

560 ' 

570 pt=plwp+pldir:IF pt>25 OR pt<6 THEN RETURN ELSE plwp=pt 

580 pldir=0 

590 PEN 1: LOCATE 3,plwp:CLS#3:PRINT CHR$ (209) ;: RETURN 

600 ' 

610 ' 

620 pt=p2wp+p2di-:IF pt>25 OR pt<6 THEN RETURN ELSE p2wp=pt 

630 p2dir=0 

640 PEN 2:L0CATE 18,p2wp:CLS#5:PRINT CHR$ (211) ;: RETURN 

650 ' 

660 ' 

670 PAPER #4,4:WIND0W #4,4,17,plwp,plwp:CLS#4:FRAME: FRAME 

680 PAPER #4,0:CLS#4 

690 GOTO 570 

700 ' 

710 ' 

720 PAPER #6, 5: WINDOW #6,4,17,p2wp,p2wp:CLS#6:FRAME:FRAME 

730 PAPER #6,0:CLS#6 

740 GOTO 620 

750 ' 

760 ' 

770 pwpe=(plwp=p2wp):IF plsa AND N0T(p2sa) AND pwpe THEN plsc=plsc+l:SOUND 

132, 120, 10,0, l,0:PRINT#l,a$(plsc);:IF plsc=9 THEN 860 

780 IF p2sa AND NOT(plsa) AND pwpe THEN p2sc=p2sc+l:S0UND 132,100,10,0,l,0:PRINT#2,a$ 

(p2sc);:IF p2sc=9 THEN 860 

790 IF plsa THEN SOUND 132,40,70,0,1,1 

800 IF p2sa THEN SOUND 132,56,70,0,1,1 

810 plsa=0 

820 p2sa=0 

830 RETURN 

840 ' 

850 ' 

860 PEN 6 

870 LOCATE 2, 10: PRINT" FIN DE LA PARTIDA" 

880 IF plsc=9 THEN INK 1,2,20:INK 2,0 ELSE INK 2,6,17:INK 1,0 

890 SOUND 129, 1000,0, 12, 3:S0UND 130,900,0,12,3 

900 WHILE INKEY$<>"":WEND 

910 t!=TIME:WHILE t !+2000>TIME:WEND 

920 WHILE INKEY$="":WEND 

930 CLS 

940 termina=-l 

950 RETURN 

960 ' 970 ' 

980 a$(0)="111101101101111" 

990 a$(l)="001001001001001" 

1000 a$(2)="111001111100111" 

1010 a$(3) = "m001111001111" 

1020 a$(4)="100100101111001" 
1030 a$(5)="111100111001111" 
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1040 a$(6)=" 111100111101111" 

1050 a$(7)="111001001010010" 

1060 a$(8)="111101111101111" 

1070 a$(9)="111101111001001" 

1080 FOR n=0 TO 9 

1090 tiempo=LEN(a$(n)) 

1100 FOR n2=l TO tiempo 

1110 IF MID$(a$(n),n2,l)="l"THEN MID$(a$(n) ,n2,l)=CHR$(143) ELSE MID$(a$ 

(n),n2,l)=CHR$(32) 

1120 NEXT n2,n 

1130 ' 

1140 ' 

1150 b$="ESGRIMA ELECTRICO" 

1160 c$=CHR$(32)+CHR$(164)+" Alexander Martin" 

1170 ENV 1,=9,2000:ENT -1,6,3,1 

1180 ENV 2,127,0,0,127,0,0,127,0,0,127,0,0,127,0,0 

1190 ENV 3, =9, 9000 

1200 ' 

1210 ' 

1220 BORDER 

1230 INK 0,12:PEN #4,1:PEN #6,2:PEN #1,1:PEN #2,2:PAPER #1,3:PAPER #2,3:PEN #0,6 

1240 RETURN ' de preparar constantes 

1250 ' 

1260 ' 

1270 INK 0,12:INK 1,2:INK 2,6:INK 3,13:INK 4,20:INK 5,17:INK 6,20 

1280 WINDOW #3,3,3,6,25:WIND0W #5,18,18,6,25 

1290 WINDOW #1,3,5, 1,5:WIND0W #2,16,18,1,5:WIND0W #7,1,20 ,1,5:PAPER #7,3 

1300 

CLS:CLS#7:PRINT#l,a$(0);:PRINT#2,a$(0);:plsc=0:p2sc=0:plwp=5:p2wp=24:pldir=l:p2dir=l 

1310 GOSUB 570:G0SUB 620 

1320 SOUND 1,1000,0, 12, 2:S0UND 2,900,0,12,2 

1330 plsa=0:p2sa=0:termina=0 

1340 RETURN 

1350 ' 

1360 ' 

1370 CLS 

1380 PEN 7 

1390 FOR n=l TO LEN(b$) 

1400 LOCATE l+n,10 

1410 FOR n2=LEN(b$) TO n STEP-1 

1420 PRINT MID$(b$,n2,l) 

1430 LOCATE l+n,10 

1440 SOUND 135,20*n2,5,12,2,l 

1450 NEXT n2,n 

1460 SOUND 135,100,0,13,3,1,20 

1470 PEN 6:PRINT:PRINT:PRINT:PRINT c$ 

1480 FOR n=l TO 5000: NEXT 

1490 RETURN 

1500 ' 

1510 ' 

1520 IF j THEN RETURN 

1530 CLS 

1540 LOCATE 6,5 

1550 PRINT"CONTROLES" 

1560 PRINT 
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1570 PRINT'JUGADOR 1 JUGADOR 2" 

1580 PRINT 

1590 PRINT" A arriba 6" 

1600 PRINT" Z abajo 3" 

1610 PRINT" X disparo 9" 

1620 t!=TIME:WHILE t!+1000>TIME:WEND 

1630 RETURN 
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Amthello 

El juego de la reflexion. Trate de rodear y capturar los cuadrados de su oponente sin dejar las 
suyos al descubierto. Para un jugador contra el ordenador. Solo teclado. 



10 'AMTHELLO, por M. J. Gribbins 

20 'copyright (c) AMSOFT 1984 

30 ' 

40 BORDER 14 

50 CLEAR 

60 MODE 1:PEN 0: PAPER 1:CLS 

70 INK 0,0:INK 1,14:INK 2,18:INK 3,26 

80 LOCATE 2,3:PEN 3 : PRINT"A" : LOCATE 3,4: PRINT"M" : LOCATE 4 ,5 : PRINT"T" : LOCATE 

5,6:PRINT"H" 

90 LOCATE 6,7:PRINT"E":L0CATE 7,8:PRINT"L" :L0CATE 8,9:PRINT"L" :L0CATE 9,10:PRINT"0" 

100 WINDOW #1,2,39,22,25:PAPER #1,1:PEN #1,0:CLS#1 

110 PEN 

120 LOCATE #1,5,1:PRINT#1,"LAS NEGRAS SIEMPRE EMPIEZAN" 

130 LOCATE #1,4,3:PRINT#1,"ELIJA BLANCAS [B] NEGRAS [N] " 

140 b$=INKEY$:IF b$="" THEN 140 

150 IF b$="B" OR b$="b" THEN q%=3:n%=0:G0T0 210 

160 IF b$="N" OR b$="n" THEN q%=0:n%=3:G0T0 210 

170 CLS#1:L0CATE #1,4,3 

180 PRINT#1," SOLO BLANCAS NEGRAS" 

190 FOR t=0 TO 1000: NEXT t 

200 GOTO 140 

210 DIM c%(10,10),p%(9,9),cl%(8),c2%(8),cx%(9),cy%(9) 

220 il%=2:jl%=2:i2%=7:j2%=7 

230 FOR i%=0 TO 9 

240 c%(i%,o%)=6:c%(0,i%)=6 

250 c%(9,i%)=6:c%(i%,9)=6 

260 NEXT i% 

270 FOR i%=l TO 8 

280 READ cl%(i%),c2%(i%) 

290 FOR j%=l TO 8 

300 READ p%(i%,j%) 

310 c%(i%,j%)=6 

320 NEXT j%:NEXT i% 

330 c%(4,4)=3:c%(4,5)=0:c%(5,4)=0:c%(5,5)=3 

340 FOR k%=l TO 58 

350 READ ar%,br%,cr%,dr% 

360 PLOT ar%,br%:DRAW cr%,dr%,0 

370 NEXT k% 

380 G0SUB 1460 

390 IF q%=3 GOTO 770 

400 CLS#1:INPUT #1," ELIJA FILA ";e% 

410 IF e%<l OR e%>8 GOTO 400 

420 LOCATE #1,1,3:INPUT #1," ELIJA COLUMNA ";d% 

430 IF d%<l OR d%>8 GOTO 420 

440 IF c%(d%,e%)=6 GOTO 480 

450 CLS#1:L0CATE #1,5,2:PRINT#1,"ESE CUADRADO YA ESTA OCUPADO!" 

460 FOR t=l TO 1000: NEXT t 

470 GOTO 400 
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480 PLOT 270+(30*d%) 5 70+(30*e%):DRAW 290+(30*d%) ,89+(30*e%) ,q% 

490 PLOT 290+(30*d%),70+(30*e%):DRAW 270+(30*d%) ,89+(30*e%) ,q% 

500 GOTO 540 

510 FOR m%=0 TO 19 STEP 2:PL0T 270+(30*d%) ,70+m%+(30*e%) 

520 DRAW 290+(30*d%),70+m%+(30*e%),6:NEXT m% 

530 GOTO 400 

540 vrx%=0 

550 FOR k%-l TO 8 

560 vr%=0:c3%=d%:c4%=e% 

570 c3%=c3%+cl%(k%) :c4%=c4%+c2%(k%) 

580 IF c%(c3%,c4%)=n% GOTO 590 ELSE 600 

590 vr%=vr%+l:GOTO 570 

600 IF c%(c3%,c4%)=6 GOTO 610 ELSE 620 

610 NEXT k%:GOTO 670 

620 IF vr%=0 GOTO 610 ELSE 630 

630 vrx%=vrx%+vr% 

640 c3%=c3%-cl%(k%) :c4%=c4%-c2%(k%) 

650 IF c%(c3%,c4%)=6 GOTO 610 ELSE 660 

660 c%(c3%,c4%)=q%:G0T0 640 

670 IF vrx%=0 GOTO 680 ELSE 710 

680 CLS#1:PRINT#1,"ES0 NO ES POSIBLE" 

690 FOR t-1 TO 1000: NEXT t 

700 GOTO 510 

710 e%=e%:dt=d%:vrx%=vrx% 

720 CLS#1:PRINT#1,"USTED VA A LA LINEA ";e% 

730 PRINT#1," Y A LA COLUMNA ";d% 

740 LOCATE #1,2,4:PRINT#1, "CON LO QUE CONSIGUE ";vrx%;" CUADRADO(S)" 

750 c%(d%,e%)=q%:GOSUB 1710 

760 GOSUB 1460 

770 CLS#1: LOCATE #1,10,2:PRINT#1,"AH0RA ME TOCA A MI ..." 

780 p%=0:vrx%=0:vry%=0 

790 IF 1l%*jl%-l AND i2%*j2%=64 GOTO 860 

800 FOR k%=2 TO 7 

810 IF c%(2,k%)<>6 THEN il%=l 

820 IF c%(7,k%)<>6 THEN i2%=8 

830 IF c%(k%,2)<>6 THEN jl%=l 

840 IF c%(k%,7)<>6 THEN j2%=8 

850 NEXT k% 

860 FOR i%=il% TO 12% 

870 FOR j%=jl% TO j2% 

880 IF c%(i%,j%)-6 GOTO 1030 

890 NEXT j%:NEXT i% 

900 IF p%>0 THEN 1000 

910 IF pas%=l GOTO 920 ELSE 940 

920 CLS#1:PRINT#1,"BL0QUEAD0! YO TAMBIEN TENGO QUE PASAR. FIN DE LA PARTIDA" 

930 FOR t-1 TO 1000: NEXT t:GOTO 1550 

940 CLS#1: LOCATE #1, 18,2 :PRINT#1, "TENGO QUE PASAR" 

950 GOSUB 2720 

960 IF pas%=l GOTO 970 ELSE 990 

970 CLS#1:PRINT#1,"BL0QUEAD0! USTED TAMBIEN TIENE QUE PASAR. FIN DE LA PARTIDA. 

975 RETURN 

980 FOR t-1 TO 1000: NEXT t:GOTO 1550 

990 GOTO 400 

1000 IF lc%=0 THEN lc%-l: RANDOMIZE lc%:rl%=RND(lc%) 

1010 cxl%=cx%(rl%):cx2%=cy%(rl%) 
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1020 GOTO 1220 

1030 vrx%=0 

1040 FOR k%=l TO 8 

1050 vr%=0:c3%=i%:c4%=j% 

1060 c3%=c3%+cl%(k%) :c4%=c4%+c2%(k%) 

1070 IF c%(c3%,c4%)=q% GOTO 1080 ELSE 1090 

1080 vr%=vr%+l:GOTO 1060 

1090 IF c%(c3%,c4%)=6 GOTO 1100 ELSE 1110 

1100 NEXT k%:GOTO 1130 

1110 IF vr%=o% GOTO 1100 ELSE 1120 

1120 vrx%=vrx%+vr%:GOTO 1100 

1130 IF vrx%=0 GOTO 890 

1140 IF p%(i%,j%) < p% GOTO 890 

1150 IF p%(i%,j%) > p% GOTO 1160 ELSE 1170 

1160 p%=p%(i%,j%):vry%=vrx%:lc%=0:cx%(0)=i%:cy%(0)=j%:GOTO 890 

1170 IF vry%>vrx% GOTO 890 

1180 IF vry%<vrx% GOTO 1190 ELSE 1200 

1190 lc%=0:vry%=vrx%:cx%(0)=i%:cy%(0)=j%:GOTO 890 

1200 lc%=lc%+l:cx%(lc%)=114:cy%(lc%)=j% 

1210 GOTO 890 

1220 cx2%=cx2%:cxl%=cxl%:vry%=vry% 

1230 CLS#1:PRINT#1,"Y0 VOY A LA FILA ";cx2% 

1240 PRINT#1," Y A LA COLUMNA ";cxl% 

1250 LOCATE #1,1,4:PRINT#1, "CON LO QUE CONSIGO ";vry%;" CUADRADO(S)" 

1260 PLOT 270+(30*cxl%),70+(30*cx2%):DRAW 290+(30*cxl%) ,89+(30*cx2%) ,n% 

1270 PLOT 290+(30*cxl%),70+(30*cx2%):DRAW 270+(30*cxl%) ,89+(30*cx2%) ,n% 

1280 FOR t- 1 TO 1000: NEXT t 

1290 FOR k%=l TO 8 

1300 vr%=0:c3%=cxl%:c4%=cx2% 

1310 c3%=c3%+cl%(k%) :c4%=c4%+c2%(k%) 

1320 IF c%(c3%,c4%)=q% GOTO 1330 ELSE 1340 

1330 vr%=vr%+l:GOTO 1310 

1340 IF c%(c3%,c4%)=6 GOTO 1350 ELSE 1360 

1350 NEXT k%:GOTO 1400 

1360 IF vr%=0 GOTO 1350 

1370 c3%=c3%-cl%(k%) :c4%=c4%-c2%(k%) 

1380 IF c%(c3%,c4%)=6 GOTO 1350 

1390 c%(c3%,c4%)=n%:G0T0 1370 

1400 c%(cxl%,cx2%)=n% 

1410 GOSUB 2720 

1420 GOSUB 1460 

1430 IF pas%=l GOTO 1440 ELSE 1450 

1440 CLS#1:PRINT#1," USTED TIENE QUE PASAR":FOR t-1 TO 1000:NEXT t:GOTO 770 

1450 GOTO 400 

1460 FOR i%=l TO 8 

1470 FOR j%=l TO 8 

1480 FOR m%=l TO 19 STEP 2 

1490 z%=270+(30*i%) :h%=70+(30*j%) :w%=h%+m% 

1500 PLOT z%,w%:DRAW z%+20,w%,c%(i%,j%) 

1510 NEXT m%:NEXT j%:NEXT i% 

1520 x%=x%+l 

1530 IF x%=61 GOTO 1550 

1540 RETURN 

1550 cq%=0:cn%=0 

1560 FOR i%=l TO 8 
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III" 



CUADRADOS. YO TENGO ";cn% 



YO TENGO ";cn% 



1570 FOR j%=l TO 8 

1580 IF c%(i%,j%)=q% THEN cq%=cq%+l 

1590 IF c%(i%,j%)=n% THEN cn%=cn%+l 

1600 NEXT j%:NEXT i% 

1610 IF cq%>cn% GOTO 1680 

1620 IF cq%=cn% GOTO 1630 ELSE 1650 

1630 CLS#1: LOCATE #1,25,2:PRINT#1,"BL0QUEAD0" 

1640 END 

1650 CLS#1:L0CATE #1,5,1:PRINT#1,"USTED TIENE 

1660 LOCATE #1,11,3:PRINT#1,"Y0 HE GANADO ... 

1670 END 

1680 CLS#1:L0CATE #1,5,1:PRINT#1,"USTED TIENE ";cq%;" CUADRADOS 

1690 LOCATE #1,5,3:PRINT#1,"MUY BIEN. USTED HA GANADO ...!!!" 

1700 END 

1710 IF c%(2,2)=q% AND (c%(3,l)=n% OR c%(l,3)=n%) GOTO 1720 ELSE 1730 

1720 p%(3,l)=l:p%(l,3)=l 

1730 IF c%(7,7)=q% AND (c%(8,6)=n% OR c%(6,8)=n%) GOTO 1740 ELSE 1750 

1740 p%(8,6)=l:p%(6,8)=l 

1750 IF c%(2,7)=q% AND (c%(l,6)=n% OR c%(3,8)=n%) GOTO 1760 ELSE 1770 

1760 p%(l,6)«l:p%(3,8)-l 

1770 IF c%(7,2)=q% AND (c%(6,l)=n% OR c%(8,3)-n%) GOTO 1780 ELSE 1790 

1780 p%(6,l)-l:p%(8,3)-l 

1790 IF d%=l OR d%=8 OR e%=l OR e%=8 GOTO 1820 

1800 IF cxl%-l OR cxl%=8 OR cx2%=l OR cx2%=8 GOTO 1820 

1810 RETURN 

1820 FOR j%=l TO 8 STEP 7 

1830 FOR i%=2 TO 7 

1840 IF c%(i%,j%)=n% GOTO 1850 ELSE 1860 

1850 p%(i%+l,j%)=21:p%(i%-l,j%)=21 

1860 IF c%(j%,i%)=n% GOTO 1870 ELSE 1880 

1870 p%(j%,i%+l)=21:p%(j%,i%-l)=21 

1880 NEXT i% 

1890 FOR i%=2 TO 7 

1900 IF c%(i%,j%)=q% GOTO 1910 ELSE 1920 

1910 p%(i%+l,j%)=2:p%(i%-l,j%)=2 

1920 IF c%(j%,i%)=q% GOTO 1930 ELSE 1940 

1930 p%(j%,i%+l)=2:p%(j%,i%-l)=2 

1940 NEXT i%:NEXT j% 

1950 p%(l,2)=l:p%(l,7)=l:p%(2,l)=l:p%(7,l)=l 

1960 p%(2,8)=l:p%(7,8)=l:p%(8,2)=l:p%(8,7)=l 

1970 FOR i%=2 TO 7 

1980 IF c%(l,i%-l)=q% AND c%(l,i%+l)=q% THEN p%(l,i%)=25 

1990 IF c%(8,i%-l)=q% AND c%(8,i%+l)=q% THEN p%(8,i%)=25 

2000 IF c%(i%-l,l)=q% AND c%(i%+l,l)=q% THEN p%(i%,l)=25 

2010 IF c%(i%-l,8)=q% AND c%(i%+l,8)=q% THEN p%(i%,8)=25 

2020 NEXT i% 

2030 FOR j%=l TO 8 STEP 7 

2040 FOR i%=4 TO 8 

2050 IF c%(j%,i%)<>n% GOTO 2140 

2060 ic%=l%-l:IF c%(j%,ic%)-6 GOTO 2140 

2070 IF c%(j%,ic%)=q% GOTO 2080 ELSE 2090 

2080 ic%=ic%-l:GOTO 2070 

2090 IF c%(j%,ic%)=6 GOTO 2110 

2100 GOTO 2140 

2110 IF ic%=0 GOTO 2140 
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2120 IF c%(j%,i%+l)=q% AND c%(j%,1c%-l)-6 GOTO 2140 

2130 p%(j%,ic%)=26 

2140 IF c%(i%, j%)on% GOTO 2230 

2150 ic%=l%-l:IF c%(ic%,j%)=6 GOTO 2230 

2160 IF c%(ic%,j%)=q% GOTO 2170 ELSE 2180 

2170 ic%=ic%-l:GOTO 2160 

2180 IF c%(ic%,j%)=6 GOTO 2200 

2190 GOTO 2230 

2200 IF ic%=0 GOTO 2230 

2210 IF c%(i%+l,j%)=q% AND c%(ic%-l,j%)=6 GOTO 2230 

2220 p%(ic%,j%)=26 

2230 NEXT i% 

2240 FOR i%=l TO 5 

2250 IF c%(j%,i%)<>n% GOTO 2340 

2260 ic%=i%+l:IF c%(j%,ic%)-6 GOTO 2340 

2270 IF c%(j%,1c%)-q% GOTO 2280 ELSE 2290 

2280 ic%=ic%+l:GOTO 2270 

2290 IF c%(j%,ic%)=6 GOTO 2310 

2300 GOTO 2340 

2310 IF ic%=9 GOTO 2340 

2320 IF c%(j%,i%-l)=q% AND c%(j%,ic%+l)=6 GOTO 2340 

2330 p%(j%,ic%)=26 

2340 IF c%(i%,j%)on% GOTO 2430 

2350 ic%=i%+l:IF c%(ic%,j%)=6 GOTO 2430 

2360 IF c%(ic%,j%)=q% GOTO 2370 ELSE 2380 

2370 ic%=ic%+l:GOTO 2360 

2380 IF c%(ic%,j%)=6 GOTO 2400 

2390 GOTO 2430 

2400 IF ic%=9 GOTO 2430 

2410 IF c%(i%-l,j%)-q% AND c%(ic%+l,j%)=6 GOTO 2430 

2420 p%(ic%,j%)=26 

2430 NEXT i%:NEXT j% 

2440 IF c%(l,l)=n% GOTO 2450 ELSE 2460 

2450 FOR i%=2 TO 6 : p%(l, i%) =20: p%(i%, 1) =20: NEXT i% 

2460 IF c%(l,8)=n% GOTO 2470 ELSE 2480 

2470 FOR i%=2 TO 6:p%(i%,8)=20:p%(l,9-i%)=20:NEXT i% 

2480 IF c%(8,l)=n% GOTO 2490 ELSE 2500 

2490 FOR i%=2 TO 6 :p%(9-i%, 1) =20: p%(8,i%)=20:NEXT i% 

2500 IF c%(8,8)=n% GOTO 2510 ELSE 2520 

2510 FOR i%=3 TO 7:p%(i%,8)=20:p%(8,i%)=20:NEXT i% 

2520 IF c%(l,l)<>6 THEN p%(2,2)=5 

2530 IF c%(l,8)<>6 THEN p%(2,7)=5 

2540 IF c%(8,l).06 THEN p%(7,2)=5 

2550 IF c%(8,8)0,6 THEN p%(7,7)=5 

2560 p%(l,l)-30:p%(l,8)-30:p%(8,l)-30:p%(8,8)-30 

2570 FOR i%=3 TO 6 

2580 IF c%(l,i%)-n% THEN p%(2,i%)=4 

2590 IF c%(8,i%)=n% THEN p%(7,i%)=4 

2600 IF c%(i%,l)=n% THEN p%(i%,2)=4 

2610 IF c%(i%,8)=n% THEN p%(i%,7)=4 

2620 NEXT i% 

2630 IF c%(7,l)=q% AND c%(4,l)=n% AND c%(6,l)=6 AND c%(5,l)=6 THEN p%(6,l)=26 

2640 IF c%(l,7)=q% AND c%(l,4)=n% AND c%(l,6)=6 AND c%(l,5)=6 THEN p%(l,6)-26 

2650 IF c%(2,l)-q% AND c%(5,l)-n% AND c%(3,l)-6 AND c%(4,l)=6 THEN p%(3,l)=26 

2660 IF c%(l,2)=q% AND c%(l,5)=n% AND c%(l,3)=6 AND c%(l,4)=6 THEN p%(l,3)=26 
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2670 IF c%(8,2)=q% AND c%(8,5)=n% AND c%(8,3)=6 AND c%(8,4)=6 THEN p%(8,3)=26 

2680 IF c%(2,8)=q% AND c%(5,8)-n% AND c%(3,8)=6 AND c%(4,8)=6 THEN p%(3,8)=26 

2690 IF c%(8,7)=q% AND c%(8,4)=n% AND c%(8,5)=6 AND c%(8,6)=6 THEN p%(8,6)=26 

2700 IF c%(7,8)=q% AND c%(4,8)=n% AND c%(5,8)=6 AND c%(6,8)=6 THEN p%(6,8)=26 

2710 RETURN 

2720 pas%=0 

2730 FOR i%=l TO 8 

2740 FOR j%=l TO 8 

2750 IF c%(i%,i%)=q% GOTO 2780 

2760 NEXT j%:NEXT 1% 

2770 pas%=l: RETURN 

2780 FOR k%=l TO 8 

2790 vr%=0:c3%=i%:c4%=j% 

2800 c3%=c3%+cl%(k%) :c4%=c4%+c2%(k%) 

2810 IF c3%<1 OR c3%>8 GOTO 2820 ELSE 2830 

2820 NEXT k%:GOTO 2760 

2830 IF c4%<l OR c4%>8 GOTO 2820 ELSE 2840 

2840 IF c%(c3%,c4%)=n% GOTO 2850 ELSE 2860 

2850 vr%=vr%+l:GOTO 2800 

2860 IF c%(c3%,c4%)=q% GOTO 2820 ELSE 2870 

2870 IF vr%>0 THEN RETURN 

2880 GOTO 2820 

2890 DATA 1,0,30,1,20,10,10,20,1,30,1,1,1,1,3 

2900 DATA 3,3,3,1,1,0,1,20,3,5,5,5,5,3,20,-1,1,10,3,5 

2910 DATA 0,0,5,3,10,-1,0,10,3,5,0,0,5,3,10,-1 

2920 DATA -1,20,3,5,5,5,5,3,20,0,-1,1,1,3,3,3,3,1,1,1,-1,30,1,20,10,10,20,1,30 

2930 DATA 263,100,263,120,270,130,255,130,255,130,255,140,255,140,270,140 

2940 DATA 270,140,270,150,270,150,255,150,255,160,270,160,270,160,270,180 

2950 DATA 270,180,255,180,270,170,255,170,270,190,270,210,270,200,255,200 

2960 DATA 255,200,255,210,255,220,270,220,270,220,270,230,270,230,255,230 

2970 DATA 255,230,255,240,255,240,270,240,255,250,270,250,270,250,270,260 

2980 DATA 270,260,255,260,255,250,255,270,270,280,270,300,270,300,255,300 

2990 DATA 255,310,255,330,255,330,270,330,270,330,270,310,270,310,255,310 

3000 DATA 255,320,270,320 

3010 DATA 310,355,310,375,350,355,335,355,335,355,335,365,335,365,350,365 

3020 DATA 350,365,350,375,350,375,335,375,365,355,380,355,380,355,380,375 

3030 DATA 380,375,365,375,380,365,365,365,410,355,410,375,410,365,395,365 

3040 DATA 395,365,395,375,425,355,440,355,440,355,440,365,440,365,425,365 

3050 DATA 425,365,425,375,425,375,440,375,455,375,455,355,455,355,470,355 

3060 DATA 470,355,470,365,470,365,455,365,485,375,500,375,500,375,500,355 

3070 DATA 515,375,515,355,515,355,530,355,530,355,530,375,530,375,515,375 

3080 DATA 515,365,530,365 
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Guante bianco 

Llevese las joyas del senor conde. Muchos obstaculos con los que tropezar, luces que encender, 
y cuidado con el perro. Para un jugador contra el ordenador. Teclado o joystick. 

10 'GUANTE BLANCO, por David Radisic 

20 'copyright (c) AMSOFT 1985 

30 ' 

40 MODE 0:INK 0,0:B0RDER 0:INK 1,26:INK 2,15:INK 3,25 

50 INK 4,14:INK 5,24,12:INK 6,0:INK 7,0:INK 8,0:PAPER #1, 7 

60 retardo=200 

70 DIM objx(5,20),objy(5,20),joyax(5,20),joyay(5,20) 

80 G0SUB 380 

90 G0SUB 720 

100 pausa=200:G0SUB 340 

110 IF joyas=0 THEN G0SUB 980 

120 PEN 4 

130 FOR i=10 TO 12 

140 LOCATE 15,i:PRINT"B0TIN"; 

150 NEXT 

160 PAPER 0:CLS#2: PAPER 8 

170 G0SUB 1180 

180 G0SUB 1240 

190 G0SUB 1380 

200 G0SUB 1520 

210 IF rm=0 THEN G0SUB 1910 

220 IF muerto=0 THEN 160 

230 pausa=100:G0SUB 340 

240 PAPER 0:CLS:PEN 1 

250 LOCATE 4,3:PRINT"Quiere jugar"; 

260 LOCATE 5,5:PRINT"otra vez?"; 

270 PEN 5: LOCATE 7,7: PRINT" S/N"; 

280 i$=UPPER$(INKEY$):IF i$<>"S" AND i$<>"N" THEN 280 

290 IF i$="N" THEN MODE 2:PEN 1:ST0P 

300 RUN 

310 IF perro=l THEN RETURN 

320 perro=l:perrox=minx(rm) :perroy=miny(rm) 

330 RETURN 

340 FOR bucle=l TO pausa 

350 FRAME 

360 NEXT 

370 RETURN 

380 rm=l:xp=6:yp=4:hombre$=CHR$(224) :perro=0:robado=0 

390 SYMBOL 240,8,8,8,8,8,8,8,8 

400 SYMBOL 241,0,0,0,0,255,0,1 .0 

410 SYMBOL 242,0,0 0,0,15,8,8,8 

420 SYMBOL 243,0,0,0,0,248,8,8,8 

430 SYMBOL 244,8,8,8,8,248,0,0,0 

440 SYMBOL 245,8,8,8,8,15,0,0,0 

450 SYMBOL 246,8,12,13,14,12,12,8,8 

460 SYMBOL 247,8,12,12,14,13,12,9,8 

470 SYMBOL 248,8,24,88,56,24,24,8,8 

480 SYMBOL 249,8,24,24,56,88,24,8,8 

490 SYMBOL 250,0,0,255,129,129,129,255,0 
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500 SYMBOL 251,28,20,20,20,20,20,20,28 

510 SYMBOL 252,0,0,255,255,255,255,255,0 

520 SYMBOL 253,28,28,28,28,28,28,28,28 

530 SYMBOL 255,195,165,60,126,90,60,36,24 

540 ENT 1,12,-4,1 

550 ENT -2, =1000, 60, =3000, 40 

560 ENV 1,10,1,5,2,-4,1,2,-1,20 

570 vent$(l)=STRING$(2,250): 

vent$(2)=CHR$(251)+CHR$(8)+CHR$(10)+CHR$(251)+CHR$(8)+CHR$(10)+CHR$(251) 

580 puerta$(l)=STRING$(2,252): pu- 

erta$(2)=CHR$(253)+CHR$(8)+CHR$(10)+CHR$(253)+CHR$(8)+CHR$(10)+CHR$(253) 

590 conm$(l,0)=CHR$(246) :conm$(l,l)=CHR$(247) 

600 conm$(2,0)=CHR$(248) :conm$(2,l)=CHR$(249) 

610 joya$=CHR$(144) :obj$=CHR$(233) :perro$=CHR$(255) 

620 gol$=CHR$(246)+CHR$(248)+CHR$(247)+CHR$(249)+CHR$(252)+ 

CHR$ (253) +CHR$ (250) +CHR$ (251) +j oya$+obj $+perro$ 

630 RESTORE 3020 

640 FOR i=l TO 5 

650 READ minx(i) ,miny(i) ,maxx(i) ,maxy(i) 

660 READ dir(i,l),dir(l,2),dir(i,3),dir(l,4) 

670 NEXT 

680 WINDOW #l,minx(rm)-l,maxx(rm)+l,miny(rm)-l,rnaxy(rm)+l 

690 WINDOW #2,1,14,1,25 



700 


CLS#1: PAPER #0 


,8 






710 


RETURN 








720 


ORIGIN 50,50 








730 


INK 6,24,12 








740 


RESTORE 3070 








750 


GOSUB 1290 








760 


LOCATE 1,20 








770 


PEN 5:PRINT">" 


9 






780 


PEN l:PRINT"Pw 


=rtas 


y 


ventanas"; 


790 


PEN 5:PRINT"<" 


;:PEN 


l 





800 LOCATE 5,21:PRINT"para escapar"; 

810 LOCATE 9, 1:PRINT"PASE": LOCATE 10,2:PRINT CHR$(213)CHR$(212) ; 

820 pausa=300:G0SUB 340 

830 CLS:LOCATE 1,3:INK 6,0 

840 PEN 1: PRINT hombre$;" Usted, el ladron" : PRINT 

850 PEN 2:PRINT LEFT$(puerta$(l) ,1) ;LEFT$(puerta$(2) ,1) ;"Puertas" :PRINT 

860 PEN 3:PRINT conm$(l,0) ;conm$(2,0) ;" Luces apagadas" : PRINT 

870 PEN 3:PRINT conm$(l,l) ;conm$(2,l) ;" Luces encendidas" :PRINT 

880 PEN 4:PRINT LEFT$(vent$(l) ,1) ;LEFT$(vent$(2) ,1) ; " Ventanas" :PRINT 

890 PEN 5:PRINT joya$;" Piedras preciosas" :PRINT 

900 PAPER 1:PEN 0: PRINT obj$;" Obstaculos" :PEN 1: PAPER 0: PRINT 

910 PEN 1: PRINT perro$;" El perro" 

920 PEN 5:PRINT:PRINT:PRINT 

930 PRINT"Util ice joystick" :PRINT"o teclas de cursor" 

940 aux=REMAIN(l) 

950 AFTER retardo*4,l GOSUB 340 

960 RETURN 

970 ' 

980 'Generar joyas y obstaculos 

990 ' 

1000 FOR hab=l TO 5 

1010 joyar=INT(RND*8)+2:objr=INT(RND*10)+5 
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1020 minx=minx(hab) :miny=miny(hab) :maxx=maxx(hab) :maxy=maxy(hab) 

1030 FOR i=l TO joyar 

1040 x=INT(RND*(maxx-minx+l))+minx 

1050 y=INT(RND*(maxy-miny+l))+miny 

1060 joyax(hab,i)=x:joyay(hab,i)=y 

1070 joyas=joyas+l 

1080 NEXT i 

1090 FOR i=l TO objr 

1100 x=INT(RND*(maxx-minx+l))+minx 

1110 y=INT(RND*(maxy-miny+l))+miny 

1120 objx(hab,i)=x:objy(hab,i)=y 

1130 NEXT i 

1140 joyas(hab)=joyar:obj (hab)=objr 

1150 NEXT hab 

1160 CLS 

1170 RETURN 

1180 ON rm GOTO 1190,1200,1210,1220,1230 

1190 RESTORE 2680: RETURN 

1200 RESTORE 2750: RETURN 

1210 RESTORE 2820: RETURN 

1220 RESTORE 2890: RETURN 

1230 RESTORE 2970: RETURN 

1240 PAPER 0:READ rm$: PAPER 8 

1250 WINDOW #l,minx(rm)-l,maxx(rm)+l,miny(rm)-l,maxy(rm)+l:CLS#l 

1260 PEN 1: LOCATE 1,1: PRINT SPACE$(19); 

1270 LOCATE l,l:PRINT"Habitacion: ";rm$; 

1280 IF luces(rm) THEN INK 7, 10: INK 8,10 ELSE INK 7,0:INK 8,0 

1290 READ a$:IF a$="FIN" THEN RETURN 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 ' 

1380 'Dibujar joyas/objetos 

1390 ' 

1400 PEN 6 

1410 FOR 1=1 TO obj(rm) 

1420 LOCATE objx(rm,i ) ,objy(rm,i ) 

1430 PRINT obj$; 

1440 NEXT 

1450 PEN 5 

1460 FOR i=l TO joyas(rm) 

1470 LOCATE joyax(rm,i ) , joyay(rm,i ) 

1480 PRINT joya$; 

1490 NEXT 

1500 PEN 1: LOCATE xp,yp: PRINT hombre$; 

1510 RETURN 

1520 xf=0:yf=0:PEN 1 

1530 IF INKEY(0)<>-1 OR INKEY(72)<>-1 THEN yf=-l 

1540 IF INKEY(2)<>-1 OR INKEY(73)<>-1 THEN yf=l 

1550 IF INKEY(8)<>-1 OR INKEY(74)<>-1 THEN xf=-l 

1560 IF INKEY(1)<>-1 OR INKEY(75)<>-1 THEN xf=l 
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IF a$="D" THEN 2190 




IF a$="W" THEN 2270 




IF a$="L" THEN GRAPHICS 


PEN 1:G0T0 2350 


IF a$="S" THEN 2430 




IF a$="F" THEN GRAPHICS 


PEN 6: GOTO 2350 


PRINT"***ERROR ***"; 





1570 IF xf=0 AND yf=0 THEN 1640 

1580 LOCATE xp+xf ,yp+yf:ht$=COPYCHR$(#0) 

1590 IF ASC(ht$)>239 AND ASC(ht$)<246 THEN 1520 

1600 IF ht$<>" " THEN 1670 

1610 LOCATE xp,yp:PRINT" "; 

1620 PAPER 0: LOCATE 4,24: PRINT" ";:PAPER 8 

1630 xp=xp+xf :yp=yp+yf 

1640 LOCATE xp,yp: PRINT hombre$; 

1650 IF perro>0 THEN perro=perro MOD 2+1: IF perro=2 THEN 2560 

1660 GOTO 1520 

1670 gol=INSTR(gol$,ht$):car=ASC(MID$(gol$,gol,l)) 

1680 ON gol GOTO 1700,1700 5 1700,1700,1760,1760,1860,1910,1980 5 2100 5 2660 

1690 GOTO 1610 

1700 IF gol>2 AND gol<5 THEN car=car-l 

1710 IF gol<3 THEN car=car+l 

1720 PEN 3: LOCATE xp+xf, yp+yf: PRINT CHR$(car); 

1730 luces (rm)=luces(rm) XOR 1 

1740 IF luces(rm) THEN INK 7, 10: INK 8,10 ELSE INK 7,0:INK 8,0 

1750 GOTO 1520 

1760 IF xf<>0 AND yf<>0 THEN 1640 

1770 IF xf<0 THEN dir=4 ELSE IF xf>0 THEN dir=3 

1780 IF yf<0 THEN dir-1 ELSE IF yf>0 THEN dir=2 

1790 IF dir(rm,dir)=-l THEN 1640 ELSE rm=dir(rm,dir) 

1800 IF perro>0 THEN GOSUB 310 

1810 IF dir=l THEN xp=6:yp=maxy(rm) 

1820 IF dir=2 THEN xp=6:yp=miny(rm) 

1830 IF dir=3 THEN xp=minx(rm) :yp=13 

1840 IF dir=4 THEN xp=maxx(rm) :yp=13 

1850 RETURN 

1860 IF xp>5 AND xp<8 THEN 1890 

1870 IF xp<6 THEN dir=4 ELSE dir=3 

1880 GOTO 1790 

1890 IF yp>13 THEN dir=2 ELSE dir=l 

1900 GOTO 1790 

1910 PAPER 0:CLS:PEN 1 

1920 LOCATE 3,3:PRINT"Usted ha escapado"; 

1930 LOCATE 8,5:PRINT"con"; 

1940 IF joyas=robado THEN LOCATE 8,7:PRINT"todas las";ELSE LOCATE 8,7 

1950 PRINT USING" ##";robado; 

1960 PEN 5:L0CATE 8,9:PRINT"joyas"; 

1970 muerto-1: RETURN 

1980 LOCATE xp,yp:PRINT" "; :xp=xp+xf :yp=yp+yf 

1990 i-0 

2000 1-i+l 

2010 IF i>joyas(rm) THEN 1520 

2020 IF joyax(rm,i)<>xp OR joyay(rm,i)<>yp THEN 2000 

2030 IF i=joyas(rm) THEN 2060 

2040 joyax(rm,i)=joyax(rm,joyas(rm)) 

2050 joyay(rm,i)=joyay(rm,joyas(rm)) 

2060 joyas (rm) =joyas (rm) -1 : robado=robado+l 

2070 MOVE 400,150+(robado*2),l,l:DRAW 555,150+(robado*2) ,1,1 

2080 SOUND 129,248,10,12,0,1 

2090 GOTO 1990 

2100 ruido=INT(RND*15) 

2110 SOUND l,3000,10,ruido,0,0,10 
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2120 PAPER 0:LOCATE 4,24: PRINFChoque ";:PAPER 8 

2130 IF ruido<10 OR retardo=50 THEN 1640 

2140 retardo=retardo-50 

2150 aux=REMAIN(l) 

2160 AFTER retardo*4,l GOSUB 310 

2170 GOTO 1640 

2180 ' 

2190 'Dibujar puertas 

2200 ' 

2210 READ no,pu$ 

2220 IF pu$="V" THEN pu=2 ELSE pu=l 

2230 PEN 2 

2240 pic$=puerta$(pu):GOSUB 2510 

2250 GOTO 1290 

2260 ' 

2270 'Dibujar ventanas 

2280 ' 

2290 READ no,ve$ 

2300 IF ve$="V" THEN ve=2 ELSE ve=l 

2310 PEN 4 

2320 pic$=vent$(ve):GOSUB 2510 

2330 GOTO 1290 

2340 ' 

2350 'Dibujar rectas 

2360 ' 

2370 READ xl,yl,x2,y2 

2380 MOVE xl.yl.O 

2390 DRAW xl,y2,0:DRAW x2, y2,0 

2400 DRAW x2,yl,0:DRAW xl,yl,0 

2410 GOTO 1290 

2420 ' 

2430 'Dibujar interruptores 

2440 ' 

2450 READ no,co$ 

2460 IF co$="L" THEN co=l ELSE co=2 

2470 PEN 3 

2480 pic$=conm$(co,0):GOSUB 2510 

2490 GOTO 1290 

2500 ' 

2510 ' Escribir car 

2520 ' 

2530 READ x,y: LOCATE x,y: PRINT pic$; 

2540 no=no-l:IF no>0 THEN 2530 

2550 RETURN 

2560 PEN 1: LOCATE perrox,perroy: PRINT" "; 

2570 hombre$=CHR$(225) 

2580 IF (perrox=xp AND perroy=yp) OR (perrox=xp+xf AND perroy=yp+yf) THEN 2660 

2590 IF perrox<xp THEN perrox=perrox+l 

2600 IF perrox>xp THEN perrox=perrox-l 

2610 IF perroy<yp THEN perroy=perroy+l 

2620 IF perroy>yp THEN perroy=perroy-l 

2630 LOCATE perrox,perroy: PRINT perro$; 

2640 SOUND 1,0,RND*40,10,1,2,31 

2650 GOTO 1520 

2660 PRINT"MORDIDO"; 
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2670 muerto-1: RETURN 

2680 DATA Pasillo 

2690 DATA L, 64, 308, 226, 4 

2700 DATA D, 2, H, 6, 3, 6, 22 

2710 DATA D, 2, V, 4, 12, 9, 11 

2720 DATA S,1,L,4,11 

2730 DATA S,1,R,9,14 

2740 DATA FIN 

2750 DATA Sal a 

2760 DATA L, 2, 308, 258, 4 

2770 DATA D,1,V,10,12 

2780 DATA W,1,H,6,3 

2790 DATA W,1,V,2,12 

2800 DATA 8, 2, R, 10, 11, 10, 15 

2810 DATA FIN 

2820 DATA Comedor 

2830 DATA L, 2, 308, 258, 4 

2840 DATA W,1,V,10,12 

2850 DATA W,1,H,6,3 

2860 DATA D,1,V,2,12 

2870 DATA S, 2, L, 2, 11, 2, 15 

2880 DATA FIN 

2890 DATA Cocina 

2900 DATA L, 2, 276, 384, 4 

2910 DATA D, 2, H, 6, 5, 6, 22 

2920 DATA W,1,H, 10,22 

2930 DATA W,1,V,14,13 

2940 DATA D,1,V,2,13 

2950 DATA S,1,L,2,16 

2960 DATA FIN 

2970 DATA Despensa 

2980 DATA L, 2, 276, 256, 4 

2990 DATA D,1,V,10,12 

3000 DATA 5,1,R,10,11 

3010 DATA FIN 

3020 DATA 5,4,8,21,0,4,3,2 

3030 DATA 3,4,9,21,-1,-1,1,-1 

3040 DATA 3,4,9,21,-1,-1,-1,1 

3050 DATA 3,6,13,21,1,0,-1,5 

3060 DATA 3,6,9,21,-1,-1,4,-1 

3070 DATA L, 64, 308, 480, 100 

3080 DATA F, 250, 98, 294, 102 

3090 DATA F, 250, 306, 294, 310 

3100 DATA F, 390, 94, 430, 106 

3110 DATA F, 390, 302, 430, 314 

3120 DATA F, 474, 240, 488, 270 

3130 DATA F,474, 124,488, 154 

3140 DATA F, 58, 240, 72, 270 

3150 DATA L, 226, 308, 322, 180 

3160 DATA L, 160, 180,480, 100 

3170 DATA L, 64, 180, 160, 100 

3180 DATA FIN 
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Apendice 4 - Indice 

2 

2008 429 

A 

A> (inductor de CP/M) 53 

ABS Ill 

AFTER 111,344 

Almacenamiento de imageries de pantalla en el segundo 

banco de memoria 317 

already exists 208 

Altavoces externos 27 

Ampliaciones del sistema residentes 307 

Amplificador 27 

AMS 226 

AMSDOS 84, 196, 197, 222 

AND Ill 

and (Logo) 238 

Animacion 362 

arctan (Logo) 236 

Aritmetica sencilla 47 

Arranque en frio de CP/M Plus 211 

Array already dimensioned 289 

ASC 112 

ASCII 268 

ascii (Logo) 232 

ASCII, ficheros 58 

ATN 112 

atributos en CP/M Plus 220 

Auriculares 28 

AUTO 112 

B 

Bad command 208 

Bancos de memoria 308 

BANKMAN 319 

BASIC 39 

bf 232 

BIN$ 113 

Binario 329 

binarios, ficheros 59 

Bits 328 

bk247 
bl 232 

borde 61 

BORDER 61, 113 

BORR(tecla) 33 

borrar el programa (New) 71 

BREAK 114 

Broken in 195 

buttonp 254 

bye 231,257 

Bytes 328 

c 

Cabeceras de fichero en AMSDOS 198 

Calidad de la grabacion en cinta 195 

CALL 114 

Cambio de discos 197 

canales de sonido 78 

Cannot CONTinue 290 

Caracteres 333 

Caracteres ASCII 268 

Caracteres definidos por el usuario 338 

Caracteres especiales 109 

Caracteres transparentes 361 

CargadeLOGO 227 



Carga depantallas 201 

Carga de programas 37 

Carga de programas AMSOFT 38 

Carga del disco a la memoria del ordenador 57 

Cassette 26 

cat 57 

CAT 114, 191 

Catalogo de un disco 57 

catch 258 

Centronics 26, 302 

CHAIN 114, 192 

CHAIN MERGE 115 

changef. 252 

char 232 

chrS 66 

CHR$ 115 

CINT 115 

cinta 85 

Cinta 26 

Cintas 191 

Circunferencias 71 

clean 243 

CLEAR 115 

CLEAR INPUT 116 

CLG 116 

CLOAD 224 

CLOSEIN 116 

CLOSEOUT 117 

CLR(tecla) 34 

CLS 39, 117 

co 257 

cociente (Logo) 238 

Codigos ampliados de control en BASIC 261 

colocar el cursor (Locate) 67 

Colores 60 

Colores de CP/M Plus 215 

coma 41 

comilla 46 

Comodines 200 

Conexion del ordenador a la red 20 

Conexion del ordenador a un monitor 21 

Conexiones 298 

Configuration de la impresora 302 

Conjunto de caracteres graficos 269 

Consola en CP/M Plus 310 

CONT 117 

CONTROL (tecla) 34 

CONTROL+MAYS+ESC 64 

Copia de discos con CP/M 85 

Copia de ficheros de disco a disco 205 

Copia de ficheros de un disco a otro 184 

Copia de ficheros entre disco y cinta 205 

Copia de los discos maestros 182 

Copia de programas de disco a disco 58 

COPYCHR$ 117 

copyoff. 242 

copyon 242 

corregir un programa 43 

COS 118 

cos (Logo) 236 

count 232 

CP/M 85 

CP/M 2.2 190 

CP/M 2.2 (diferencias con CP/M Plus) 222 
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CP/MPlus 210 

CPCE 430 

Creation de un disco de trabajo de CP/M 185 

CREAL 118 

cs 243 

CSAVE 224 

ct 242 

CURSOR 118 

cursor (Logo) 242 

cursor (teclas) 32 

cursor de copia 44 

cursor de edition 43 

D 

DATA 119,345 

DATA exhausted 289 

DATE 221 

DDT 226 

DECS 119 

DEFFN 120 

defaultd 252 

define 240 

Definition de una envolvente de tono 81 

Definition de una envolvente de volumen 80 

Definir caracteres 338 

DEFINT 120 

DEFREAL 120 

DEFSTR 121 

DEG 121 

DELETE 121 

DERR 122 

DEVICE 218 

DI 122, 345 

dibujar circunferencias 71 

dibujar un punto (Plot) 69 

dibujar una recta (Draw) 70 

diferencia (Logo) 238 

Digital Research 372 

DIM 123 

dir54 

DIR 213 

dir(Logo) 253 

Direct command found 290 

Directorio del disco 197 

directory full 208 

dirpic 253 

DIRS 213 

DIRSYS 213 

disc full 208 

disc is write protected 209 

disc missing 209 

disckit2 90 

DISCKIT2 224 

disckit3 54,86 

DISCKIT3 215 

Discos 29,305 

Discos de trabajo 182 

discos maestros del sistema 182 

Dispositivos de expansion 28 

Division 48 

Division by zero 289 

Division entera 48 

dos puntos 45 

dot244 

dote 244 

Dr. LOGO 227 

DRAW 70, 123 

DRAWR 124 

DRI 372 

DSK 430 

DUMP 226 



Duration del sonido 78 

E 

E (notation cientifica) 51 

Ear (magnetofono) 26 

ed 231,241 

ED 226 

edall 241 

edf241 

Edition de programas 43 

Edition de programas Logo 230 

EDIT 124 

EI 125, 345 

Ejemplo grafico 358 

ELSE 45, 125 

emptyp 233 

Emuladores 430 

END 45, 125 

end (Logo) 229,240 

ENT 125,353 

ent (Logo) 256 

ENV 127,351 

env (Logo) 256 

Envolvente de tono 79 

Envolvente de volumen 79 

EOF 128 

EOF met 290 

er 250 

ERA 213 

erall 250 

ERASE 128,213 

ERL 129 

ern250 

ERR 129 

ERROR 129 

error (Logo) 258 

Errores de disco en AMSDOS 291 

Errores de lectura en cinta 192 

ESC(tecla) 35 

Esquemas del teclado 282 

Estereo 27 

EVERY 130,344 

EXP 130 

Expansion 28 

Eyeccion de un disco 31 

F 

Failed to load CP/M 209 

fd 228, 247 

FD1 27 

fence 244 

Ficheros en disco con Dr.Logo 252 

Ficheros en RAM 319 

FIJA MAYS (tecla) 33 

File already open 291 

File not open 291 

File type error 290 

FILECOPY 223 

FILL 74, 130 

first 233 

FIX 131 

flechas del teclado 32 

FN131 

FOR 45, 131 

Formato de escritura 339 

FormatoIBM 306 

Formato SISTEMA 305 

Formato SOLO DATOS 305 

Formatos literales 158 

Formatos numericos 157 

fput 233 
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FRAME 68, 132 

FRE 132 

Frecuencias de sonido 285 

fs 245 

Funciones graficas 358 

G 

Garantia 373 

Gestor de bancos de memoria 91, 317 

glist 251 

Glosario 375 

go 257 

GOSUB 46, 132 

GOTO 41, 133 

gprop 251 

Grabacion de un programa en disco 57 

Graficos (ejemplo) 358 

Graficos con el segundo banco de 64K de RAM 364 

Graficos de tortuga 243, 247 

GRAPHICS PAPER 133 

GRAPHICS PEN 133 

GSX 188 

Guia de telefonos (ejemplo) 98 

H 

HELP 184 

HEXS 134 

Hexadecimal 330 

HIMEM 134 

home 247 

ht 247 

I 

IF 45, 134 

if (Logo) 257 

Impresora 26 

impresora desde Logo 242 

Impresoras 302 

Impresoras en CP/M Plus 217 

Improper argument 289 

inductor A> 53 

Initialization de discos 52 

INK 62, 135 

INKEY 135 

INKEY$ 136 

INP 136 

INPUT 41, 136 

Insertion de un disco 29 

INSTR 137 

INT 138 

int (Logo) 236 

Interfaz serie en CP/M Plus 217 

Interrupciones 267, 344 

INTRO (tecla) 32 

introduction a CP/M Plus 183 

Introduccion a LOGO 227 

Invalid direct command 289 

item 233 

J 

JavaCPC 430 

JOY 138,304 

Joystick en Dr.Logo 254 

Joysticks 26,284,304 

Juego de caracteres 269, 333 

Juego de caracteres de CP / M Plus 314 

K 

KEY 138 

KEYDEF 139 

keyp 254 

L 

La genesis de un programa 98 



label 257 

LANGUAGE 215 

last 233 

lc 234 

LEFTS 139 

LEN 140 

LET 140 

Lexico ingles-castellano 375 

Licencia 372 

Limpieza del ordenador 25 

Line does not exist 289 

LINE INPUT 140 

Line too long 290 

Lineas discontinuas 359 

list234 

LIST 40, 141 

Listas de datos 345 

listp 234 

load 57 

LOAD 141, 192,226 

load (Logo) 253 

loadpic 253 

local 239 

LOCATE 67, 141 

LOG 142 

LOG10 142 

Logica 335 

LOG02 225 

LOG03 228 

LOWERS 142 

lput 234 

It 247 

M 

make 230,239 

Mapade memoria 308 

MASK 143,359 

MAX 143 

MAYS (tecla) 33 

mayusculas 176 

mayusculas y minusculas 65 

memberp 234 

Memoria 308 

memoria utilizada por Dr. LOGO 231 

MEMORY 143 

Memory full 289 

Mensajes de error de AMSDOS 208 

Mensajes de error de BASIC 289 

MERGE 144, 192 

Mic (magnetofono) 26 

MIDS 144 

MIN 145 

MOD 49, 145 

mode 60 

MODE 145 

modos de pantalla 60 

Modosde tinta 361 

Modulo 49 

MOVCPM 226 

MOVE 70, 146 

MOVER 146 

MP2 22 

MP2 (modulador) 22 

Multiplication 48 

Musica 348 

N 

namep 239 

NEW 71, 147 

NEXT 45, 147 

NEXT missing 290 
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nodes 231,250 

noformat 250 

Nombres de fichero con dos unidades de disco 199 

Nombres y tipos de ficheros en AMSDOS 198 

NOT 147 

not (Logo) 238 

not found 208 

Notation cientifica 51 

Notas de sonido y periodos de tono 285 

notrace 258 

nowatch 258 

numberp 234 

numero de linea 40 

Numeros 327 

Numeros de las teclas 284 

Numeros de tinta 61 

o 

ON <expresion> GOSUB 149 

ON <expresion> GOTO 150 

ON BREAK CONT 148 

ON BREAK GOSUB 148 

ON BREAK STOP 148 

ON ERROR GOTO 149 

ON SQ GOSUB 150 

op 257 

OPENIN 151 

OPENOUT 151 

Operaciones combinadas 50 

Operand missing 290 

OR 151 

or (Logo) 238 

ordendirecta 40 

ordenes externas 307 

Ordenes transitorias de CP/M Plus 214 

origen de coordenadas (Origin) 73 

ORIGIN 73, 152 

OUT 152 

Overflow 289 

P 

paddle 254 

pal 245 

palabras clave (introduction) 39 

Palabras clave del BASIC de AMSTRAD 109 

Palabras reservadas de BASIC 293 

PALETTE 215 

papel (fondo) 61 

PAPER 61, 152 

Parametros en Logo 229 

parpadeo 64 

pause 258 

pd247 
pe 247 

PEEK 153 

PEN 61, 153 

Perifericos 26 

Periodo de tono 78 

PI 153 

PIP 184,218 

Plantillas 294 

plist 252 

PLOT 69, 154 

PLOTR 154 

pluma 61 

po240 

poall 251 

POKE 155 

pons 251 

pops 251 

POS 155 



Posiciones del cursor en BASIC 261 

Potentiation 49 

pots 241 

pprop 252 

pps 252 

pr 242 

primitivas de Dr. LOGO 231 

PRINT 39, 156,338 

PRINT SPC 156 

PRINT TAB 156 

PRINT USING 157,340 

Prioridad en operaciones aritmeticas 50 

Problemas en el funcionamiento del sistema 25 

Procedimientos en Dr. LOGO 229 

producto (Logo) 238 

PROFILE 183 

programa 40 

Protection contra escritura de un disco 29 

protegidos, ficheros 58 

pu248 

punto y coma 41 

px248 

Q 

quotient 236 

R 

RAD 159 

Raiz cuadrada 49 

Raiz cubica 50 

RAM 155,308 

RAMdisc 319 

random (Logo) 236 

RANDOMIZE 159 

re 255 

READ 159,345 

read fail 209 

readonly 208 

recycle 231, 251 

Reinicializar el ordenador 64 

RELEASE 160,354 

release (Logo) 256 

rellenar zonas de pantalla (Fill) 74 

REM 46, 160 

REMAIN 160,345 

remainder 237 

Remote (magneto fono) 26 

remprop 252 

REN 214 

RENAME 214 

RENUM 161 

repeat (Logo) 229,257 

rerandom 237 

Resta 48 

Resto de la division 49 

RESTORE 161,347 

RESUME 162 

RESUME missing 290 

RESUME NEXT 162 

Retry, Ignore or Cancel? 208 

RETURN 46, 163 

RETURN (tecla) 32 

RIGHTS 163 

rl 255 

RND 163 

ROINTIME.DEM 37 

ROM 308 

ROUND 164 

round (Logo) 237 

rq 255 

RSX 307 
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rt 228,248 

Ruido 79 

RUN 40, 164, 192 

run (Logo) 257 

run\ 38,57 

s 

Salida de CP/ M 222 

save 57 

SAVE 195 

save (Logo) 253 

savepic 253 

se 235 

Segunda unidad de disco 27 

SET 220 

setbg 245 

setcursor 242 

setd 254 

SETDEF 221 

seth 248 

SETKEYS 216 

SETLST 217 

setpal 245 

setpc 248 

setpos 248 

setscrunch 245 

SETSIO 218 

setsplit 243 

SETUP 224 

setx 249 

sety 249 

sf 246 

SGN 165 

show 243 

SHOW 222 

shuffle 235 

signo de interrogacion 40 

SIN 165 

sin (Logo) 237 

sincronizar barrido (Frame) 68 

Sistema binario 328 

snapshot 430 

Solo lectura (disco) 30 

Sonido 348 

Sonido en Dr.Logo 255 

Sonidos 78,285 

SOUND 78, 165,348 

sound (Logo) 256 

SPACES 167 

SPC 167,339 

SPEED INK 167 

SPEEDKEY 167 

SPEED WRITE 168, 195 

Sprites 363 

SQ168 

SQR 49, 169 

ss 246 
st 249 

STAT 223 

STEP 46, 169 

STOP 169 

stop (Logo) 258 

STR$ 170 

String expression too complex 290 

String too long 290 

STRINGS 170 

Subscript out of range 289 

Suma 48 

suma (Logo) 237 

SWAP 170 

SYMBOL 170,338 



SYMBOL AFTER 172 

Syntax error 35,289 

SYSGEN 222 

T 

TAB 172,339 

tablade caracteres 66 

tabla de colores 60 

TAG 172 

TAGOFF 173 

TAN 173 

Teclado en Dr.Logo 254 

Teclas especiales 32 

Temporizadores 267 

Terminal Zenith Z19/Z29 310 

TEST 174 

TESTR 174 

text 241 

tf 249 

THEN 45, 174 

thing 240 

throw 259 

TIME 174 

tintas 62 

Tipos de datos 109 

TO 175 

to (Logo) 229,241 

Tonos de sonido 285 

tortuga 227,243 

towards 250 

trace 259 

Traza delprograma 175 

TROFF 175 

TRON 175 

ts 243 

TYP 214 

type 243 

TYPE 214 

Type mismatch 290 

u 

uc 235 

Unexpected NEXT 289 

Unexpected RESUME 290 

Unexpected RETURN 289 

Unexpected WEND 291 

Unknown command 291 

Unknown Command 208 

Unknown user function 290 

UNT 175 

UPPERS 176 

USE 214 

USER 214 

USING 176,340 

V 

VAL 176 

Variables 334 

variables literales 42 

Varias instrucciones en una misma linea de programa 45 

Ventanas 340,342 

Verificacion de discos 89 

Volcado de pantalla 59, 200 

Volumen 28 

Volumen del sonido 79 

VPOS 176 

w 

WAIT 177 

wait (Logo) 258 

watch 259 

Welcome (programa de demostracion) 38 

WEND 177 
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WEND missing 291 

where 235 

WHILE 177 

WIDTH 178 

WinAPE 430 

WINDOW 178,342 

window (Logo) 246 

WINDOW SWAP 179 

word 236 

wordp 236 

wrap 246 

WRITE 179 

write fail 209 

X 

XCPC 430 

XOR 180,337 

XPOS 180 

XSUB 226 

Y 

YPOS 180 

Z 

Zocalo de cinta 299 

Zocalo de expansion 300 

Zocalo del joystick 298 

Zocalo del monitor 298 

Zocalo estereo 299 

Zocalo para la impresora 301 

Zocalo para la segunda unidad de disco 300 

Zocalos de entradas y salidas 298 

ZONE 181 



45 



■ 48 

■ (Logo).. 



..238 



! 110,215 

? 

? 40,200 

.contents 259 

.deposit 259 

.examine 259 

.in 259 

.out 259 

' 46, 160 



* 

* 48,200 

*(Logo) 238 

*.*200 

/ 

/ 48 

/(Logo) 238 

& 

& 109,340 

&H 109 

&X 109 

# 

# 109, 340 

% 

% 110 
+ 
+ 48 

+ (Logo) 237 

< 

<(Logo) 239 

= (Logo) 239 

> 

>(Logo) 239 

A 58, 196, 202 
B 58, 196, 202 

BANKFIND 94,320 

BANKOPEN 93,319 

BANKREAD 93,320 

BANKWRITE 93,319 

CPM 53,202 

DIR 203 

DISC 196,203 

DRIVE 203 

ERA 203 

REN 204 

SCREENCOPY 318 

SCREENSWAP 318 

tape 85 

TAPE 196,204 

tape.in 85 

tape.out 85 

USER 204 

$ 

$ 42,110 
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Apendice 5 - Revision 2008 



En 2008 (durante los meses de octubre a diciembre) se ha realizado una revision de este texto, 
por autores ajenos a los originales. No se cuenta con permiso escrito de Amstrad, pero, dado 
que esta empresa dio permiso para distribuir las ROMs asf como otros elementos de software, 
hemos dado por sentado que no estamos violando ningun copyright vigente, y que estamos 
realizando un servicio a la comunidad de usuarios de Amstrad CPC. 

Los cambios han sido: 

• Revision de pequehas erratas en el texto: "adecuadamene","dicos", "inviertiendo", 
"maquima", "obsevar", "ordendor", "pricipiantes", "siguiene", "softaware", etc. 

• Revision de erratas en los fuentes de ejemplo. Por ejemplo "mode" en vez de "move" en 
la explicacion de FILL en la pagina 1/64, o "on sq( I )" en vez de "on sq8 1 )" en la 
explicacion de ON SQ de la pagina 3/53. 

• Correccion de algun otro error en el texto. Por ejemplo, "on break stop" no permite 
indicar un numero de Ifnea. 

• Correccion de algun programa de ejemplo. Por ejemplo en "Esgrima electrico" del 
apendice 3 se mostraba el mensaje "Pulse J/T - Joysticks o teclas" pero se esperaba la 
pulsacion de J o K (Keyboard). En el ejemplo de volcado de pantallas, se esperaba la 
pulsacion de Y (yes) o N (no). 

• Ampliacion de alguna de las listas de "Palabras clave relacionadas". Por ejemplo, "closein" 
ahora incluye a "closeout" como relacionada y viceversa, y "pen" incluye a "graphics pen" y 
a "ink". 

• Ahadidas varias "notas del revisor" para detallar incompatibilidades entre modelos de 
Amstrad CPC, errores existentes en fuentes de ejemplo originales y formas de mejorar 
dichos fuentes. 

• Renumeracion de las paginas en forma correlativa. 

• Creadon de un fndice de contenido mucho mas detallado y de un fndice alfabetico 
tambien mucho mas detallado. 

• Inclusion de capturas de pantalla de los juegos y de algun otro concepto intermedio (por 
ejemplo, el "cursor de copia" o las formas de dibujar circunferencias). 

• Revision de los fuentes y publicacion con la sintaxis realzada en colores para los de mayor 
complejidad. 

• Ahadido un apendice que habla de los emuladores de Amstrad CPC. 
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Apendice 6 - Emuladores de Amstrad CPC 

Han pasado cerca de 25 anos desde el lanzamiento de los Amstrad CPC. Hoy en dfa no es facil 
encontrarlos en tiendas, pero se puede redescubrir buena parte de lo que suponia su manejo 
(salvo la emocion de manejar en un equipo que en muchos aspectos estaba por delante de sus 
contemporaneos) utilizando un emulador, que imite su funcionamiento desde un ordenador 
actual. 

Ademas, estos emuladores suelen permitir posibilidades adicionales, como: 

• Captura de la pantalla del CPC a un fichero. 

• Volcado de toda la memoria a un fichero ("snapshot") o volcado desde un fichero a la 
memoria. 

• Lectura de "imagenes de disco": ficheros en formato DSK que representan el contenido 
de un diskette de 3 pulgadas de los CPC, asf como guardado de datos dentro de estos 
"discos ficticios". 

• Depuracion de programas paso a paso, pudiendo ver el contenido de la memoria y de los 
registros del procesador Z80. 

• (Y muchas mas) 



Algunos de los emuladores que se pueden encontrar hoy en dia son: 

• WinAPE: Uno de los mas actualizados. Para Windows. Esta en ingles, pero es facil de 
usar y funciona bastante bien. Se puede descargar de http://www.winape.net/ 

• CPCE: Se actualiza casi tanto como WinAPE, pero su configuracion es algo mas diffcil, al 
tener que editar ficheros de texto en vez de usar los menus. Para Windows y DOS. Se 
puede descargar de http://cpce.emuunlim.com/ 

• JavaCPC: Creado en Java, lo que permite que funcione en distintas plataformas, y se 
pueda usar incluso desde un navegador web. Se puede localizar en 
http://sourceforge.net/projects/javacpc/ 

• XCPC: Para sistemas operativos de la familia Unix, como Linux. Su pagina oficial es 
http://sourceforge.net/projects/xcpc 



A modo de ejemplo, la siguiente imagen es la apariencia de WinAPE con un menu desplegado: 



| He Settings Debug Assembler Help 


^jnjx| 


Swap Discs A: and B: Ehift+Ctrl+FB 
Load Cartridge,., Ctrl-H=3 


Fa-mil! List Image,,. 

Flip Disc Shift+Fl 




SaiSSt''.'. 3 




IXTslZZ"^' 


Record AVI.,, 
Record WAV.,, 


Pokes... Ctrl+FS 


PafJ VPe '" cLll 




p- ii o m m h o ffliggi & u>j?; ? 


Speed; 101% FPS; 50 
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